回傳一個 IDataObject 介面，代表 Microsoft Visio 使用者介面中使用的主動 Connector 工具。 唯讀。
語法
表情。ConnectorToolDataObject
expression 代表 Application 物件的變數。
傳回值
IDataObject
註解
預設情況下， ConnectorToolDataObject 會回傳內建的 Visio Connector 工具。 如果模板中的主控是主動連接器， ConnectorToolDataObject 會回傳該主裝置的資料物件。 如果 Visio 無法擷取內部的 IDataObject，則會發生例外。
範例
以下Microsoft Visual Basic for Applications (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 支援與意見反應。