Page.GetShapesLinkedToDataRow 方法 (Visio)

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

注意事項

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

語法

expression。 GetShapesLinkedToDataRow( _DataRecordsetID_ , _DataRowID_ , _ShapeIDs()_ )

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

參數

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

傳回值

無

註解

如果是 ShapeIDs() 參數，請傳遞 Long 類型的空白、無維度陣列。 如果頁面上沒有任何圖形連結到 DataRecordsetID 所指定之記錄集中 DataRowID 所指定的資料列， GetShapesLinkedToDataRow 會傳回空陣列。

若要判斷記錄集中所有資料列的識別碼，請使用 DataRecordset.GetDataRowIDs 方法。 請注意，資料列識別碼不一定一定會對應至記錄集中資料列的邏輯位置。

範例

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

執行這個宏之前，請使用 DataRecordsets.Add 方法或其他方法，將至少一個資料記錄集新增至 DataRecordsets 集合，並確定使用中頁面上至少有一個圖形連結至資料列中識別碼為 1 的資料記錄集。

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

支援和意見反應

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