Метод Selection.ConnectShapes (Visio)

Соединяет две или более выделенных фигур с помощью динамической соединительной линии. Ничего не возвращает.

Синтаксис

выражение. ConnectShapes

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

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

Отсутствует

Пример

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

Public Sub ConnectShapes_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(2, 9, 4, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(5, 6, 7, 3) 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 Application.ActiveWindow.Selection.ConnectShapes 
 
End Sub

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

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