Cell.GlueTo 方法 (Visio)
从第一个形状中的单元格到第二个形状中的单元格将一个形状粘附到另一个形状中。
表达式。GlueTo (CellObject)
表达 一个代表 Cell 对象的变量。
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
CellObject | 必需 | [IVCELL] | 返回 Cell 对象的表达式,该对象表示要粘附到的形状的一部分。 |
Nothing
以下是可能的连接的列表。
以下是可能的连接的列表。
连接点单元格。
参考线或参考点的单元格: 当一维形状的开始或结束单元格粘附到参考线或参考点的单元格时,将创建两个连接:一个连接从 BeginX 或 EndX 单元格到参考线的 Angle 单元格,一个从 BeginY 或 EndY 单元格到参考线的 Angle 单元格。
2D 形状的引脚 (创建动态粘附) : 从粘附的形状必须可路由 (ObjType 包括 visLOFlagsRoutable) 或具有动态粘附类型 (GlueType 包括 visGlueTypeWalking) ,并且不禁止动态粘附 (GlueType 不包括 visGlueTypeNoWalking) 。 粘附到 PinX 会创建具有水平行走首选项的动态粘附,而粘附到 PinY 会创建具有垂直行走首选项的动态粘附。
Geometry 节中顶点行的任何单元格: 将创建粘附到的连接点。 可以将开始或结束单元格指定为要从中粘附的单元格。 GlueTo 方法在连接行的 X 和 Y 单元格中建立新公式。
1D 形状的开始或结束单元格: 将创建粘附到的连接点。 可以将开始或结束单元格指定为要从中粘附的单元格。 GlueTo 方法在连接行的 X 和 Y 单元格中建立新公式。
边缘 (2D 形状的“对齐”部分中的单元格) : 将创建粘附到的连接点。 可以将开始或结束单元格指定为要从中粘附的单元格。 GlueTo 方法在连接行的 X 和 Y 单元格中建立新公式。
从边缘 (“对齐”部分中的单元格) 2D 形状到参考线或参考点的单元格。
从 1D 形状的向外或向内/向外连接点单元格,到不是参考线或参考点单元格的向内或向内/向外连接点单元格: 粘附这些单元格时,将创建两个连接-一个从 1D 形状的 BeginX 单元格到 Connections.Xi 单元格,另一个从 1D 形状的 EndX 单元格到 Connections.Y i 单元格。
从 2D 形状的向外或向内/向外连接点单元格,到不是参考线或参考点单元格的向内或向内/向外类型连接点单元格: 如果向外连接点具有方向,则会创建两个连接点-一个从 Angle 单元格到 Connections.X i 单元格,另一个从 PinX 单元格到 Connections.Y i 单元格。
连接点单元格。
参考线或辅助点的单元格:将控制点粘附到参考线或辅助点的单元格(而不是连接点单元格)时,将创建两个连接,一个连接到参考线的 PinX,一个连接到参考线的 PinY。
Geometry 节中顶点行的任何单元格: 将创建粘附到的连接点。 可以将控制点行中的任何单元格指定为要从中粘附的单元格。 GlueTo 方法在连接行的 X 和 Y 单元格中建立新公式。
不是参考线或参考点的 1D 形状的开始或结束单元格: 将创建粘附到的连接点。 可以将控制点行中的任何单元格指定为要从中粘附的单元格。 GlueTo 方法在连接行的 X 和 Y 单元格中建立新公式。
边缘 (2D 形状的“对齐”部分中的单元格) : 将创建粘附到的连接点。 可以将控制点行中的任何单元格指定为要从中粘附的单元格。 GlueTo 方法在连接行的 X 和 Y 单元格中建立新公式。
有关连接点类型和方向的详细信息,请参阅“Connection Points”一节。
下面的宏说明如何使用 GlueTo 方法将形状粘附在一起。
Public Sub GlueTo_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
'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
'You can also use the GlueTo method to glue
'by referencing a connection point cell.
Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3)
Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX")
Set vsoCellGlueToObject = vso2DShape1.Cells("Connections.X1")
vsoCellGlueFromEnd.GlueTo vsoCellGlueToObject
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。