通过

Connects.FromSheet 属性 (Visio)

  • 项目

返回生成一个连接或多个连接的形状。 此为只读属性。

语法

表达式。FromSheet

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

返回值

Shape

说明

Connect 对象的 FromSheet 属性比较简单。 它始终返回生成 Connect 对象的形状。

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

示例

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

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

 
Public Sub FromSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectFrom 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 intCurrentShapeIndex = 1 To vsoShapes.Count 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 For intCounter = 1 To vsoConnects.Count 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectFrom = vsoConnect.FromSheet 
 
 'Print the name of the shape the 
 'Connect object originates from. 
 Debug.Print vsoConnectFrom.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
End Sub

支持和反馈

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