Selection.GetIDs-Methode (Visio)

Artikel
04/07/2023

Ruft die Shape-IDs der Shapes in der Auswahl ab.

Hinweis

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

Syntax

Ausdruck. GetIDs(ShapeIDs())

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ShapeIDs()	Erforderlich	Long	Ausgabeparameter. Ein Array von Shape-IDs des Typs Long, die den Shapes in der Auswahl entsprechen.

Rückgabewert

Nichts

Bemerkungen

Microsoft Visio verwendet ID-Nummern, um Shapes, Recordsets und Datenzeilen zu identifizieren. Shape-IDs sind nur innerhalb des Bereichs der Seite eindeutig, in dem sie sich befinden. Nachdem Sie diese Shape-IDs ermittelt haben, können Sie sie an die Page.LinkShapesToDataRows-Methode übergeben, um genau anzugeben, wie die Shapes in Ihrem Diagramm mit Datenzeilen in den verfügbaren Datenrecordsets verknüpft werden sollen. Shape-IDs sind im Bereich eines bestimmten Zeichenblatts eindeutig.

Verwenden Sie die Selection.GetIDs-Methode, um die Shape-ID für ein Shape zu ermitteln, das Teil einer Auswahl ist.

Der Satz der zurückgegebenen Shape-IDs wird durch die Einstellung der Selection.IterationMode-Eigenschaft bestimmt.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Die GetIDs-Methode verwendet wird, um die IDs von Shapes in einer Auswahl abzurufen und die IDs im Direktfenster zu drucken. Es wählt alle Shapes im aktiven Fenster aus.

Public Sub GetIDs_Example() 
 
    Dim vsoSelection As Visio.Selection 
    Dim lngShapeID As Long
    Dim intShapeIndex As Integer 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
     
    Call vsoSelection.GetIDs(lngShapeIDs) 
     
    For intShapeIndex = LBound(lngShapeIDs) To UBound(lngShapeIDs) 
        lngShapeID = lngShapeIDs(intShapeIndex)
        Debug.Print lngShapeID 
    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