Visio - Расположение текстового блока dynamic connector

All Forums

Категория Visio

Форум Вопросы и ответы

Расположение текстового блока dynamic connector

Author

Topic

rolga

Russia
1 Posts

Posted - 12/10/2003 : 09:10:46

Как программно прижать текстовый блок коннектора к одному из концов. Пожалуйста, помогите.

Digitall

Russia
389 Posts

Posted - 12/11/2003 : 07:51:57

quote:
Originally posted by rolga

Как программно прижать текстовый блок коннектора к одному из концов. Пожалуйста, помогите.

Например так.

Sub Text_position()
Dim shpObj As Visio.Shape
Set pagsObj = ThisDocument.Pages
Set pagObj = pagsObj.Item(1)
Set selectObj = ActiveWindow.Selection
Set shpObj = ActiveWindow.Selection.Item(1)
Set celObj1 = shpObj.Cells("TxtPinX") 'назначаем ячейку
Set celObj2 = shpObj.Cells("TxtPinY") 'назначаем ячейку
celObj1.Formula = "Width*1" 'прижимаем к низу
celObj2.Formula = "Height*1" 'прижимаем к низу
celObj1.Formula = "Width*0" 'прижимаем к верху
celObj2.Formula = "Height*0" 'прижимаем к верху
End Sub

Topic

Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)