Page.Shapes-Eigenschaft (Visio)

Gibt die Shapes-Auflistung für eine Seite, einen Master oder eine Gruppe zurück. Schreibgeschützt.

Syntax

Ausdruck. Formen

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Rückgabewert

Formen

HinwBemerkungeneise

Wenn Ihre Visual Studio-Projektmappe den Verweis Microsoft.Office.Interop.Visio enthält, wird diese Eigenschaft den folgenden Typen zugeordnet:

• Microsoft.Office.Interop.Visio.IVPage.Shapes

Beispiel

Dieses Makro von VBA (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die Shapes-Eigenschaft zum Abrufen der Shapes-Auflistung verwendet wird. Es zeigt die Namen aller Shapes auf Zeichenblatt1 im benachbarten Fenster an.

Stellen Sie zum Ausführen dieses Makros sicher, dass das aktive Dokument auf Zeichnblatt1 über Shapes verfügt.

 
Public Sub Shapes_Example()  
 
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes  
 
    Debug.Print "Shapes in document: "; ActiveDocument.Name 
    Debug.Print "On page: "; ActiveDocument.Pages.Item(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.Item(intCounter).Name  
        Next intCounter 
  
    Else 
        Debug.Print "No Shapes On Page"  
    End If   
 
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.