Page. GetShapesLinkedToData-Methode (Visio)Page.GetShapesLinkedToData method (Visio)

Gibt ein Array aller Shapes auf dem aktiven Zeichenblatt zurück, die mit Daten im angegebenen Datenrecordset verknüpft sind.Returns an array of all shapes on the active page linked to data in the specified data recordset.

Hinweis

Dieses Visio-Objekt oder dieses Visio-Mitglied ist nur für lizenzierte Benutzer von Visio Professional 2013 verfügbar.This Visio object or member is available only to licensed users of Visio Professional 2013.

SyntaxSyntax

Ausdruck.expression. GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

Ausdruck Ein Ausdruck, der ein Page -Objekt zurückgibt.expression An expression that returns a Page object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
DataRecordsetIDDataRecordsetID ErforderlichRequired LongLong Die ID eines im aktuellen Dokument enthaltenen Datenrecordsets.The ID of a data recordset contained in the current document.
ShapeIDs ()ShapeIDs() ErforderlichRequired LongLong Ausgabeparameter.Out parameter. Ein Array vom Typ Long , das die Methode mit den Shape-IDs der Shapes auf der Seite zurückgegeben wird, die mit dem Datenrecordset verknüpft ist, das in datarecordsetattribute angegeben ist.An array of type Long that the method will return filled with the shape IDs of shapes on the page linked to the data recordset specified in DataRecordsetID.

RückgabewertReturn value

NichtsNothing

BemerkungenRemarks

Übergeben Sie für den ShapeIDs ()-Parameter ein leeres, Dimensions Loses Array vom Typ Long.For the ShapeIDs() parameter, pass an empty, dimensionless array of type Long. Wenn das Zeichenblatt keine verknüpften Shapes enthält, gibt GetShapesLinkedToData ein leeres Array zurück.If there are no linked shapes on the page, GetShapesLinkedToData will return an empty array.

Verwenden Sie die Page. GetShapesLinkedToDataRow -Methode, um die bestimmte Datenzeile in den Datensatzgruppen-Shapes zu ermitteln, mit denen eine Verknüpfung besteht.To determine the specific data row in the data recordset shapes are linked to, use the Page.GetShapesLinkedToDataRow method.

BeispielExample

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 ermitteln, die mit Daten im Datenrecordset verknüpft sind, das zuletzt den DataRecordsets hinzugefügt wurde. ** **Auflistung des aktuellen Dokuments.The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the GetShapesLinkedToData method to determine the shape IDs of the shapes on the page linked to data in the data recordset most recently added to the DataRecordsets collection of the current document. Die Shape-IDs werden im Direktfenster gedruckt.It prints the shape IDs in the Immediate window.

Verwenden Sie vor dem Ausführen dieses Makros die DataRecordsets . Add -Methode oder eine andere Möglichkeit, der DataRecordsets- **** Auflistung mindestens ein Datenrecordset hinzuzufügen, und stellen Sie sicher, dass mindestens eine Form auf der aktiven Seite mit Daten im Datenrecordset verknüpft ist.Before running this macro, use the DataRecordsets.Add method or another means to add at least one data recordset to the DataRecordsets collection, and make sure there is at least one shape on the active page linked to data in the data recordset.

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 FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.