| Author |
 Topic  |
|
|
AlexanderV
1 Posts |
 Posted - 12/16/2007 : 16:34:41
|
Работая в Visio, если соеденить две фигуры connector-ом, то он автоматически выберет оптимальную траекторию для него. После этого мы можем изменять эту траэкторию, перемещая зеленые точки на выбранном коннекторе. Вопрос: как изменить положения этих точек программно? (т.е., с помощью VBA). Насчет того, чтоб прилепить концы коннектора - это я откопал:
Set mastObj = stnObj.Masters("Dynamic connector")
Set shpConnector = pagObj.Drop(mastObj, 4.25, 9)
shpConnector.SendToBack
Set celBeginX = shpConnector.CellsSRC(visSectionObject, visRowXForm1D, vis1DBeginX)
celBeginX.GlueTo elements(i).CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX)
Set celEndX = shpConnector.CellsSRC(visSectionObject, visRowXForm1D, vis1DEndX)
celEndX.GlueTo elements(conn(i) - 1).CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX) |
|
|
Tumanov
Russia
1198 Posts |
Posted - 12/16/2007 : 20:46:18
|
Что-то мне кажется, что неблагодарное это занятие - вмешиваться в работу динамического коннектора. Либо Вы его сломаете и он перестанет быть коннектором, либо все Ваши старания могут быть в неопределенный момент перечеркнуты автоматикой...
Зелеными точками управлять нельзя. Но если уж очень хочется, то можно попытаться двигать концы отрезков через секцию Geometry.
|
 |
|
| |
Topic |
|
|
|
All Forums
Dynamic connector