Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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 von der Methode zurückgegeben wird, gefüllt mit den Form-IDs von Formen auf der Seite, 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 die spezifische Datenzeile im Datenrecordset zu bestimmen, mit der Shapes verknüpft sind.
Beispiel
Das folgende Microsoft Visual Basic for Applications (VBA)-Makro zeigt, wie Sie die GetShapesLinkedToData-Methode verwenden, um die Shape-IDs der Shapes auf der Seite zu ermitteln, die mit den Daten im Datenrecordset verknüpft sind, das zuletzt der DataRecordset-Auflistung des aktuellen Dokuments hinzugefügt wurde. Es druckt die Form-IDs im Direktfenster.
Verwenden Sie vor dem Ausführen dieses Makros die DataRecordsets.Add-Methode oder eine andere Möglichkeit, um der DataRecordsets-Auflistung mindestens ein Datenrecordset hinzuzufügen, und stellen Sie sicher, dass sich auf der aktiven Seite mindestens ein Shape befindet, 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.