Visio) (Application.ConnectorToolDataObject 屬性

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

語法

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