Visio) (Application.ConnectorToolDataObject 屬性

傳回一個 IDataObject 介面，代表 Microsoft Visio 使用者介面中使用的使用中 連接器 工具。 唯讀。

語法

運算式。ConnectorToolDataObject

expression 代表 Application 物件的變數。

傳回值

IDataObject

註解

根據預設， ConnectorToolDataObject 會傳回內建的 Visio 連接器 工具。 如果樣板中的主節點是使用中連接器， 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 支援與意見反應。