Page.GetShapesLinkedToData 方法 (Visio)

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

注意事項

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

語法

expression。 GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

表達 會傳回 Page 物件的運算式。

參數

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

傳回值

無

註解

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

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

範例

下列 Microsoft Visual Basic for Applications (VBA) 宏會示範如何使用 GetShapesLinkedToData 方法來判斷頁面上連結到最近新增至目前檔 之 DataRecordsets 集合之資料記錄集中資料的圖形識別碼。 它會在 [即時運算] 視窗中列印圖形識別碼。

執行這個宏之前，請使用 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 支援與意見反應。