通过

Connects.ToSheet 属性 (Visio)

  • 项目

返回对其进行了一个或多个连接的形状。 此为只读属性。

语法

表达式。ToSheet

表达 一个代表 Connects 对象的变量。

返回值

Shape

说明

Connect 对象的 ToSheet 属性始终返回对其进行了连接的形状。

Connects 集合代表多个连接。 如果由集合代表的每个连接都对同一形状进行，则 ToSheet 属性返回该形状。 否则，它返回 Nothing，并且不会发生异常。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 ToSheet 属性在 Microsoft Visio 绘图中查找生成 Connect 对象的形状。 该示例在“立即”窗口中显示连接信息。

此示例假设存在一个至少包含两个已连接形状的活动文档。 为了获得最佳结果，请从“组织结构图形状”模具中连接两个形状。

 
Public Sub ToSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectTo As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeIndex As Integer 
 Dim intCounter As Integer 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeIndex = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the shape it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectTo = vsoConnect.ToSheet 
 
 'Print the name of the shape the 
 'Connect object connects to. 
 Debug.Print vsoConnectTo.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。