Page.GetShapesLinkedToDataRow-Methode (Visio)

Artikel
04/07/2023

Gibt ein Array aller Shapes auf dem aktiven Zeichenblatt zurück, die mit Daten in der angegebenen Datenzeile im angegebenen Datenrecordset verknüpft sind.

Hinweis

Dieses Visio-Objekt oder dieses Visio-Mitglied ist nur für lizenzierte Benutzer von Visio Professional 2013 verfügbar.

Syntax

Ausdruck. GetShapesLinkedToDataRow( _DataRecordsetID_ , _DataRowID_ , _ShapeIDs()_ )

Ausdruck Ein Ausdruck, der ein Page-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRecordsetID	Erforderlich	Long	Die ID eines im aktuellen Dokument enthaltenen Datenrecordsets.
DataRowID	Erforderlich	Long	Die ID einer Datenzeile in dem Datenrecordset, das in DataRecordsetID angegeben wurde.
ShapeIDs()	Erforderlich	Long	Ausgabeparameter. Ein Array vom Typ Long , das die Methode mit den Shape-IDs von Shapes auf der Seite zurückgibt, die mit der datenzeile verknüpft ist, die in DataRowID in dem in DataRecordsetID angegebenen Datenrecordset angegeben ist.

Rückgabewert

Nichts

Bemerkungen

Übergeben Sie für den Parameter ShapeIDs() ein leeres Array ohne Dimensionen vom Typ Long. Wenn auf der Seite keine Shapes vorhanden sind, die mit der datenzeile verknüpft sind, die durch DataRowID in dem durch DataRecordsetID angegebenen Datenrecordset angegeben wurde, gibt GetShapesLinkedToDataRow ein leeres Array zurück.

Verwenden Sie die DataRecordset.GetDataRowIDs-Methode , um die IDs aller Datenzeilen in einem Datenrecordset zu bestimmen. Beachten Sie, dass Datenzeilen-IDs nicht immer der logischen Position der Datenzeilen im Datenrecordset entsprechen.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die GetShapesLinkedToDataRow-Methode verwendet wird, um die Shape-IDs der Shapes auf der Seite zu bestimmen, die mit Daten in der Datenzeile mit der ID 1 im Datenrecordset verknüpft sind, das zuletzt der DataRecordsets-Auflistung des aktuellen Dokuments hinzugefügt wurde. Die Shape-IDs werden im Direktfenster gedruckt.

Bevor Sie dieses Makro ausführen, verwenden Sie die DataRecordsets.Add-Methode oder eine andere Methode, um der DataRecordsets-Auflistung mindestens ein Datenrecordset hinzuzufügen, und stellen Sie sicher, dass auf der aktiven Seite mindestens eine Form vorhanden ist, die mit Daten in der Datenzeile mit der ID 1 im Datenrecordset verknüpft ist.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über