Как программно вставить текст на пустую страницу в Visio? - C#

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Как программно вставить текст на пустую страницу в Visio ?

Решение задачи: «Как программно вставить текст на пустую страницу в Visio?»

textual
Листинг программы
Sub InsertText()
Dim vsoShape1 As Visio.Shape
Dim vsoCharacters2 As Visio.Characters
    
    Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(0#, 11.181102, 8.267717, 11.653543)
    vsoShape1.TextStyle = "Normal"
    vsoShape1.LineStyle = "Text Only"
    vsoShape1.FillStyle = "Text Only"
    
    Set vsoCharacters2 = vsoShape1.Characters
    vsoCharacters2.Text = "ÏðîèçâîëüГ*ûé ГІГҐГЄГ±ГІ"
    
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы