通过

Application.ConnectorToolDataObject 属性 (Visio)

  • 项目

返回表示 Microsoft Visio 用户界面中使用的活动连接器工具的 IDataObject 接口。 此为只读属性。

语法

表达式。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 支持和反馈，获取有关如何接收支持和提供反馈的指南。