Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.15.3.154] |
|
Сообщ.
#1
,
|
|
|
Знатоки Visio,
подскажите пожалуйста как программно (из VBA) подключить коннектор (линию) к заданной фигуре к заданной точке присоединения (connection point)? Заранее спасибо. |
Сообщ.
#2
,
|
|
|
используй метод GlueToPos для коннекта в заданные координаты
Dim vsoShape1 As Visio.Shape Dim vso2DShape2 As Visio.Shape Dim vsoCellGlueFromBegin As Visio.Cell 'кидаем куда-нибудь на страницу коннектор Set vsoShape1 = ActiveWindow.Page.Drop(Application.ConnectorToolDataObject, 4.724409, 3.937008) 'определяем его начальную х-координату Set vsoCellGlueFromBegin = vsoShape1.Cells("BeginX") 'рисуем прямоугольник Set vso2DShape1 = ActivePage.DrawRectangle(1, 1, 5, 3) 'подсоединяем коннектор к середине.. vsoCellGlueFromBegin.GlueToPos vso2DShape1, 0.5, 1 |
Сообщ.
#3
,
|
|
|
Большое спасибо!
|