Visio) (Cell.GlueTo 方法

會將一個圖形黏附至另一個圖形 (從第一個圖形中的儲存格到第二個圖形中的儲存格)。

語法

運算式。GlueTo (CellObject)

運算式 代表 Cell 物件的變數。

參數

傳回值

無

註解

以下是可能的連接清單。

以下是可能的連接清單。

從 1D 圖形的開頭或結尾儲存格到...

• 連接點儲存格。

• 輔助線或輔助點的儲存格： 當 1D 圖形的開始或結束儲存格黏附至輔助線或輔助點的儲存格時，會建立兩個連接，一個從 BeginX 或 EndX 儲存格到輔助線的 [角度] 儲存格，另一個從 BeginY 或 EndY 儲存格到輔助線的 [角度] 儲存格。

• 2D 圖形的圖釘 (建立動態黏附) ： 黏附的圖形必須是可路由 (ObjType 包含 visLOFlagsRoutable) ，或具有動態黏附類型 (GlueType 包含 visGlueTypeWalking) ，並且不禁止動態黏附 (GlueType 不包含 visGlueTypeNoWalking) 。 黏附到 PinX 會建立具有水平行走喜好設定的動態黏附，黏附到 PinY 會建立具有垂直行走偏好設定的動態黏附。

• 幾何區段中頂點列的任何儲存格：隨即建立一個黏附的連接點。 可以將開始或結束儲存格指定為要黏附的儲存格。 GlueTo 方法會在連接列的 X 和 Y 儲存格中建立新公式。

• 1D 圖形的開始或結束儲存格： 隨即建立一個黏附的連接點。 可以將開始或結束儲存格指定為要黏附的儲存格。 GlueTo 方法會在連接列的 X 和 Y 儲存格中建立新公式。

• 邊緣 (2D 圖形) 對齊區段中的儲存格： 隨即建立一個黏附的連接點。 可以將開始或結束儲存格指定為要黏附的儲存格。 GlueTo 方法會在連接列的 X 和 Y 儲存格中建立新公式。

從 2D 圖形) [對齊方式] 區段中的儲存格 (邊到輔助線或輔助點的儲存格。

從一維圖形的向外或向內/向外的連接點儲存格，到不是輔助線或輔助點的儲存格的向內或向內/向外連接點儲存格： 黏附這些儲存格時，會建立兩個連接：一個從一維圖形的 BeginX 儲存格到 Connections.Xi 儲存格，另一個從一維圖形的 EndX 儲存格到 Connections.Y i 儲存格。

從 2D 圖形的向外或向內/向外連接點儲存格，到不是輔助線或輔助點儲存格的向內或向內/向外類型連接點儲存格： 如果向外連接點有方向，則會建立兩個連接點，一個從 Angle 儲存格到 Connections.X i 儲存格，另一個從 PinX 儲存格到 Connections.Y i 儲存格。

從控制點儲存格到...

• 連接點儲存格。

• 輔助線或輔助點的儲存格：將控制點黏附至連接點儲存格以外的輔助線或輔助點儲存格時，會建立兩條連接：一條到輔助線的 PinX，另一條到輔助線的 PinY。

• 幾何區段中頂點列的任何儲存格：隨即建立一個黏附的連接點。 控制點列中的任何儲存格都可以指定為要黏附的儲存格。 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 支援與意見反應。