Как программно вставить текст на пустую страницу в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д