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 支援與意見反應。