Visio) (Connect.FromCell 屬性

發行項
04/07/2023

會傳回連接的來源儲存格。唯讀。

語法

運算式。FromCell

表達代表 Connect 物件的變數。

傳回值

儲存格

註解

連接是由圖形中連接的來源儲存格到目標儲存格的參考所定義。 FromCell屬性會傳回連接來源儲存格的Cell物件。

下列是可能的連接以及其相關 FromCell 屬性值的清單。

連接是由圖形中連接的來源儲存格到目標儲存格的參考所定義。 FromCell屬性會傳回連接來源儲存格的Cell物件。

下列是可能的連接以及其相關 FromCell 屬性值的清單。

從 1D 圖形的開始或結束儲存格到...

連接點儲存格：FromCell 屬性會根據所黏附的端點傳回 BeginX 或 EndX 儲存格。
輔助線或參考點的儲存格： 當 1D 圖形的開始或結束儲存格黏附至輔助線或參考點的儲存格時，會建立兩個連接：一個從端點的 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 圖形) Alignment 區段中的儲存格：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 圖形) Alignment 區段中的儲存格：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 支援與意見反應。

共用方式為