Visio) (Selection.ConnectShapes 方法

會使用動態連接器連接兩個以上的選取圖形。 會傳回 Nothing 。

語法

expression。 ConnectShapes

表達 代表 Selection 物件的變數。

傳回值

無

範例

這個 Microsoft Visual Basic for Applications (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 支援與意見反應。