共用方式為

Page.GetShapesLinkedToData method (Visio)

會傳回使用中頁面上所有連結至指定資料錄集內之資料的圖形陣列。

注意事項

This Visio object or member is available only to licensed users of Visio Professional 2013.

語法

expression。 GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

詞 一個回傳 Page 物件的表達式。

參數

名稱 必要/選用 資料類型 描述
DataRecordsetID 必要 Long 目前文件中所包含之資料錄集的識別碼。
ShapeID () 必要 Long 輸出參數。 方法會回傳一個類型為 Long 的陣列，填滿與 DataRecordsetID 指定資料集中連結頁面上形狀的形狀 ID。

傳回值

無

註解

如果是 ShapeIDs() 參數，請傳遞 Long 類型的空白、無維度陣列。 如果頁面上沒有連結的圖形，GetShapesLinkedToData 會傳回空陣列。

要確定形狀所連結的資料記錄集中特定資料列，請使用 Page.GetShapesLinkedToDataRow 方法。

範例

以下Microsoft Visual Basic for Applications (VBA) 巨集 展示了如何使用 GetShapesLinkedToData 方法，來確定頁面上與資料記錄集中資料連結的形狀 ID，該資料最近加入了目前文件的 DataRecordsets 集合。 它會在立即視窗列印 shape ID。

在執行此巨集前，請使用 DataRecordsets.Add 方法或其他方式，將至少一個資料記錄集加入 DataRecordsets 集合，並確保活動頁面上至少有一個形狀與資料集中的資料連結。

Public Sub GetShapesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
    Dim alngShapeIDs() As Long 
    Dim intArrayCounter As Integer 
     
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    ActivePage.GetShapesLinkedToData vsoDataRecordset.ID, alngShapeIDs 
     
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    Next 
     
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • Last updated on