通过

Connect.ToCell 属性 (Visio)

  • 项目

获取要连接到的单元格。 此为只读属性。

语法

表达式。ToCell

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

返回值

Cell

备注

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

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

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

  • 连接点单元格：ToCell 属性返回 Connection.X i 单元格。

  • 参考线或参考点的单元格： 当一维形状的开始或结束单元格粘附到参考线或参考点的单元格时，将创建两个连接：一个连接从端点的 X 单元格到参考线的 Angle 单元格，另一个从端点的 Y 单元格到参考线的 Angle 单元格。 两个 Connect 对象的 ToCell 属性返回 Angle 单元格。

  • 2D 形状的引脚 (创建动态粘附) ：ToCell 属性返回 PinX 单元格。

  • Geometry 节中顶点行的任何单元格： 将创建新的连接点， 并且 ToCell 属性返回 Connections.X i 单元格。

  • 1D 形状的开始或结束单元格： 将创建新的连接点， 并且 ToCell 属性返回 Connections.X i 单元格。

  • 边缘 (2D 形状的“对齐”部分中的单元格) ： 将创建新的连接点， 并且 ToCell 属性返回 Connections.X i 单元格。

从边缘 (“对齐”部分中的单元格) 2D 形状到参考线或参考点的单元格：ToCell 属性返回 Angle 单元格。

从 1D 形状的向外或向内/向外连接点单元格到不是参考线或参考点单元格的向内或向内/向外连接点单元格： 粘附这些单元格时，将创建两个连接-一个从 1D 形状的 BeginX 单元格到 Connections.X i 单元格，另一个从 1D 形状的 EndX 单元格到 Connections.Y i 单元格。 对于第一个 Connect 对象， ToCell 属性返回 Connections.X i ，为另一个 Connect 对象返回 Connections.Y i 。

从不是参考线或参考点的 2D 形状的向外或向内/向外连接点单元格，到不是参考线或参考点单元格的向内或向内/向外类型连接点单元格： 如果向外连接点是无方向的， 则 ToCell 属性返回 Connections.X i 单元格。 如果向外连接点具有方向，则会创建两个连接点。 ToCell 属性返回两个 Connect 对象的 Connections.X i 单元格。

从控制手柄到...

  • 连接点单元格：ToCell 属性返回 Connections.Xi 单元格。

  • 参考线或参考点的单元格： 将控制点粘附到参考线或参考点的单元格时，将创建两个连接：一个连接从控制点的 X 单元格到参考线的 PinX，另一个从控制点的 Y 单元格到参考线的 PinY 单元格。 第一个 Connect 对象的 ToCell 属性返回参考线的 PinX 单元格，对于第二个 Connect 对象，返回参考线的 PinY 单元格。

  • “Geometry”内容中顶点行的任意单元格：创建一个新连接点，并且 ToCell 属性返回 Connections.Xi 单元格。

  • 1D 形状的开始或结束单元格： 将创建一个新的连接点， 并且 ToCell 属性返回 Connections.Xi 单元格。

  • 边缘 (2D 形状的“对齐”部分中的单元格) ： 将创建新的连接点， 并且 ToCell 属性返回 Connections.X i 单元格。

示例

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

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

 
Public Sub ToCell_Example() 
 
 Dim vso1DShape As Visio.Shape 
 Dim vso2DShape1 As Visio.Shape 
 Dim vso2DShape2 As Visio.Shape 
 Dim vsoCellGlueFromBegin As Visio.Cell 
 Dim vsoCellGlueFromEnd As Visio.Cell 
 Dim vsoCellGlueToObject As Visio.Cell 
 Dim vsoCellGlueToObject2 As Visio.Cell 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim vsoConnectToCell As Visio.Cell 
 Dim intCurrentShapeID As Integer 
 Dim intCounter As Integer 
 
 'Draw a line. 
 Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3) 
 
 'Draw the lower rectangle. 
 Set vso2DShape1 = ActivePage.DrawRectangle(1, 1, 4, 2) 
 
 'Draw the upper rectangle. 
 Set vso2DShape2 = ActivePage.DrawRectangle(5, 5, 8, 6) 
 
 'Get the Cell objects needed to make the connections. 
 Set vsoCellGlueFromBegin = vso1DShape.Cells("BeginX") 
 Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX") 
 Set vsoCellGlueToObject = vso2DShape1.Cells("Geometry1.X3") 
 Set vsoCellGlueToObject2 = vso2DShape2.Cells("Geometry1.X1") 
 
 'Use the GlueTo method to glue the begin point of the 1D shape 
 'to the top right vertex (Geometry1.X3) of the lower 2D shape. 
 vsoCellGlueFromBegin.GlueTo vsoCellGlueToObject 
 
 'Use the GlueTo method to glue the endpoint of the 1D shape 
 'to the bottom left vertex (Geometry1.X1) of the upper 2D shape. 
 vsoCellGlueFromEnd.GlueTo vsoCellGlueToObject2 
 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeID = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeID) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the cell it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectToCell = vsoConnect.ToCell 
 
 'Print connect information in the Immediate window. 
 Debug.Print " To "; vsoConnectToCell.Name 
 
 Next intCounter 
 
 Next intCurrentShapeID 
 
End Sub

支持和反馈

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