Connect.FromCell 属性 (Visio)

2023-04-07

返回生成连接的单元格。此为只读属性。

语法

表达式。FromCell

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

返回值

Cell

备注

连接可定义为形状中生成连接的单元格对该形状中要连接到的单元格的引用。 FromCell 属性返回生成连接的单元格的 Cell 对象。

下面列出了可能的连接及其相关的 FromCell 属性的值。

连接可定义为形状中生成连接的单元格对该形状中要连接到的单元格的引用。 FromCell 属性返回生成连接的单元格的 Cell 对象。

下面列出了可能的连接及其相关的 FromCell 属性的值。

从 1D 形状的开始或结束单元格到...

连接点单元格：FromCell 属性返回 BeginX 或 EndX 单元格，具体取决于被粘附的端点。
参考线或参考点的单元格： 当一维形状的开始或结束单元格粘附到参考线或参考点的单元格时，将创建两个连接：一个连接从终结点的 X 单元格到参考线的 Angle 单元格，一个从终结点的 Y 单元格到参考线的 Angle 单元格。一个 Connect 对象的 FromCell 属性返回 BeginX 或 EndX 单元格，另一个 Connect 对象的 FromCell 属性返回 BeginY 或 EndY 单元格，具体取决于粘附的终结点。
2D 形状的引脚 (创建动态粘附) ： 粘附的来源形状必须是可路由的或具有动态粘附类型。 FromCell 属性返回 BeginX 或 EndX 单元格，具体取决于粘附的终结点。
Geometry 节中顶点行的任何单元格：FromCell 属性返回 BeginX 或 EndX 单元格，具体取决于粘附的终结点。
1D 形状的开始或结束单元格：FromCell 属性返回 BeginX 或 EndX 单元格，具体取决于粘附的终结点。
边缘 (2D 形状的“对齐”部分中的单元格) ：FromCell 属性返回 BeginX 或 EndX 单元格，具体取决于粘附的终结点。

从边缘 (“对齐”部分中的单元格) 2D 形状到参考线或参考点的单元格：

FromCell 属性返回粘附到参考线的 Alignment 单元格。

从 1D 形状的向外或向内/向外连接点单元格，到不是参考线或参考点单元格的向内或向内/向外连接点单元格：

粘附这些单元格时，将创建两个连接-一个从 1D 形状的 BeginX 单元格到 Connections.X i 单元格，另一个从 1D 形状的 EndX 单元格到 Connections.Y i 单元格。 FromCell 属性为一个 Connect 对象返回 BeginX，并为另一个返回 EndX。

从 2D 形状的向外或向内/向外连接点单元格，到不是参考线或参考点单元格的向内或向内/向外类型连接点单元格：

如果向外连接点无方向，则 FromCell 属性返回 PinX 单元格。如果向外连接点有方向，则创建两个连接点。 FromCell 属性为一个 Connect 对象返回 Angle 单元格，并为另一个返回 PinX 单元格。

从控制点单元格到……

连接点单元格：FromCell 属性返回 Controls.X i 单元格。
参考线或参考点的单元格： 当控制点粘附到参考线或参考点的单元格而不是连接点单元格时，将创建两个连接。一个 Connect 对象的 FromCell 属性返回 Controls.X i，第二个 Connect 对象返回 Controls.Y i。
Geometry 节中顶点行的任何单元格：FromCell 属性返回 Controls.X i 单元格。
不是参考线或参考点的 1D 形状的开始或结束单元格：FromCell 属性返回 Controls.X i 单元格。
边缘 (2D 形状的“对齐”部分中的单元格) ：FromCell 属性返回 Controls.X i 单元格。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何从 Microsoft Visio 绘图中提取连接信息。该示例在“立即”窗口中显示连接信息。

此示例假设存在一个至少包含两个已连接形状的活动文档。

 
Public Sub FromCell_Example() 
  
    Dim vsoShapes As Visio.Shapes  
    Dim vsoShape As Visio.Shape  
    Dim vsoConnectCell As Visio.Cell  
    Dim vsoConnects As Visio.Connects  
    Dim vsoConnect As Visio.Connect  
    Dim intCurrentShapeID As Integer 
    Dim intCounter As Integer 
    Set vsoShapes = ActivePage.Shapes 
  
    'For each shape on the page, get all its connections. 
    For intCurrentShapeIndex = 1 To vsoShapes.Count  
        Set vsoShape = vsoShapes(intCurrentShapeIndex)  
        Set vsoConnects = vsoShape.Connects  
  
        'For each connection, get the cell the connection  
        'originates from, and print its name in the Immediate window. 
        For intCounter = 1 To vsoConnects.Count  
            Set vsoConnect = vsoConnects(intCounter)  
            Set vsoConnectCell = vsoConnect.FromCell  
            Debug.Print "From " & vsoConnectCell.Name  
        Next intCounter  
 
    Next intCurrentShapeIndex  
 
End Sub

支持和反馈

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

通过