Master.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 Master-Objekt darstellt.

Rückgabewert

Formen

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.