Page.GetShapesLinkedToData-Methode (Visio)

Artikel
04/07/2023

Gibt ein Array aller Shapes auf dem aktiven Zeichenblatt zurück, die mit Daten 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. GetShapesLinkedToData( _DataRecordsetID_ , _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.
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 dem in DataRecordsetID angegebenen Datenrecordset verknüpft ist.

Rückgabewert

Nichts

Bemerkungen

Übergeben Sie für den Parameter ShapeIDs() ein leeres Array ohne Dimensionen vom Typ Long. Wenn das Zeichenblatt keine verknüpften Shapes enthält, gibt GetShapesLinkedToData ein leeres Array zurück.

Verwenden Sie die Page.GetShapesLinkedToDataRow-Methode , um zu bestimmen, mit welcher Datenzeile in den Datenrecordset-Shapes verknüpft sind.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die GetShapesLinkedToData-Methode verwendet wird, um die Shape-IDs der Shapes auf der Seite zu bestimmen, die mit Daten 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 ein Shape vorhanden ist, das mit Daten im Datenrecordset verknüpft ist.

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

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