Свойство Application.ConnectorToolDataObject (Visio)

Статья
04/07/2023

Возвращает интерфейс IDataObject , представляющий активное средство соединителя , используемое в пользовательском интерфейсе Microsoft Visio. Только для чтения.

Синтаксис

expression. ConnectorToolDataObject

выражение: переменная, представляющая объект Application.

Возвращаемое значение

Idataobject

Замечания

По умолчанию ConnectorToolDataObject возвращает встроенное средство соединителя Visio. Если главный элемент из набора элементов является активным соединителем, ConnectorToolDataObject возвращает объект данных для этого образца. Если Visio не удается получить внутренний IDataObject, возникает исключение.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство ConnectorToolDataObject для соединения двух фигур. Он удаляет два образца на страницу и соединяет их с фигурой динамического соединителя с помощью динамического клея. Перед выполнением этого макроса откройте набор основных фигур , если он еще не открыт.

Public Sub ConnectorToolDataObject_Example() 
 
 Dim vsoSquareShape As Visio.Shape 
 Dim vsoCircleShape As Visio.Shape 
 Dim vsoConnectorShape As Visio.Shape 
 
 Dim vsoCell1 As Visio.Cell 
 Dim vsoCell2 As Visio.Cell 
 Dim vsoCell3 As Visio.Cell 
 Dim vsoCell4 As Visio.Cell 
 
 Set vsoSquareShape = ActiveWindow.Page.Drop(Documents("BASIC_U.VSS").Masters.ItemU("Square"), 4, 9) 
 Set vsoCircleShape = ActiveWindow.Page.Drop(Documents("BASIC_U.VSS").Masters.ItemU("Circle"), 4#, 6) 
 Set vsoConnectorShape = Application.ActiveWindow.Page.Drop(Application.ConnectorToolDataObject, 2, 2) 
 
 Set vsoCell1 = ActivePage.Shapes(3).Cells("BeginX") 
 Set vsoCell2 = ActivePage.Shapes(1).CellsSRC(7, 0, 0) 
 vsoCell1.GlueTo vsoCell2 
 
 Set vsoCell3 = ActivePage.Shapes(3).Cells("EndX") 
 Set vsoCell4 = ActivePage.Shapes(2).CellsSRC(7, 1, 0) 
 vsoCell3.GlueTo vsoCell4 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через