Visio
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [18.221.165.246] |
|
|
Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ: 
Общие вопросы Особенности VBA-кода Оптимизация VBA-кода Полезные ссылки
1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Общие вопросы Особенности VBA-кода Оптимизация VBA-кода Полезные ссылки 1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Visio
|
Сообщ.
#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
,
|
|
|
|
Большое спасибо!
|
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0210 ] [ 16 queries used ] [ Generated: 16.04.24, 19:53 GMT ]