| Author |
 Topic  |
|
|
evgenia_e
Germany
22 Posts |
 Posted - 05/08/2004 : 17:45:36
|
Народ, помогите!
У меня два прямоугольника, нужно соединить их из VBA(точки соединения известны). Еще лучше если можно брать коннектор, которым соедянить, из мастера (предположим, в мастере mast.vss он там называется connect).
Спасибо |
|
|
Tumanov
Russia
1198 Posts |
Posted - 05/08/2004 : 20:25:41
|
Нужно взять коннектор, бросить его на лист. Затем по очереди приклеить куда надо сначала один конец коннектора, потом второй.
Вот отрывок из примера:
Выбираем коннектор
Set mastObj = stnObj.Masters("connect")
Опускаем его на страницу в некоторую точку
Set shpConnector = pagObj.Drop(mastObj, 4.25, 9)
Получаем ссылку на ячейку шейп-листа, с значением начала коннектора
Set celBeginX = shpConnector.CellsSRC(visSectionObject, visRowXForm1D, vis1DBeginX)
Приклеиваем его к первому шейпу
celBeginX.GlueTo ShpObj1.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX)
Получаем ссылку на ячейку шейп-листа с значением конца коннектора
Set celEndX = shpConnector.CellsSRC(visSectionObject, visRowXForm1D, vis1DEndX)
Приклеиваем его к второму шейпу
celEndX.GlueTo ShpObj2.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX)
Естественно, можно действовать и с именами ячеек.
celObj.GlueTo shpObj2.Cells("Connections.bottom")
А вот набор имен ячеек для всевозможных точек, к которым можно приклеить коненктор
Connections.Xn or Connections.Yn
Geometry.Xn or Geometry.Yn
AlignLeft, AlignCenter, AlignRight,
AlignTop, AlignMiddle, or AlignBottom
PinX or PinY (для динамического коненктора) |
 |
|
| |
Topic |
|
|
|
All Forums
автоматическое построение коннектора