ContainerProperties.GetMemberShapes-Methode (Visio)
Gibt die Shape-IDs aller Mitglieder des Containers wie angegeben zurück.
Syntax
Ausdruck. GetMemberShapes (ContainerFlags)
Ausdruck Eine Variable, die ein ContainerProperties-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| ContainerFlags | Erforderlich | Long | Gibt an, welche Shape-IDs der Containermitglieder zurückgegeben werden sollen |
Rückgabewert
Long()
Hinweise
Der ContainerFlags-Parameter kann eine oder mehrere der folgenden VisContainerFlags-Konstanten sein.
| Konstante | Wert | Beschreibung |
|---|---|---|
| visContainerFlagsDefault | 0 | Gibt alle Shape-Typen zurück und schließt Elemente in geschachtelten Containern ein |
| visContainerFlagsExcludeContainers | 1 | Schließt Mitglieds-Shapes aus, die Container sind |
| visContainerFlagsExcludeConnectors | 2 | Schließt Mitglieds-Shapes aus, die Verbinder sind |
| visContainerFlagsExcludeCallouts | 4 | Schließt Mitglieds-Shapes aus, die Beschriftungen sind |
| visContainerFlagsExcludeElements | 8 | Schließt Mitglieds-Shapes aus, die keine Container, Listen, Verbinder oder Beschriftungen sind |
| visContainerFlagsExcludeNested | 16 | Schließt alle Mitglieds-Shapes aus, die Mitglieder von in Containern geschachtelten Containern oder Listen sind |
| visContainerFlagsExcludeListMembers | 32 | Schließt Mitglieder eines Listencontainers aus, die explizit Mitglieder einer beliebigen Liste sind. Schließt keine weiteren Shapes im Listencontainer aus |
GetMemberShapes gibt ein leeres Array zurück, wenn es keine Mitglieds-Shapes gibt.
Beispiel
Im folgenden Beispiel für Visual Basic for Applications (VBA) wird gezeigt, wie die GetMemberShapes-Methode verwendet wird, um die IDs aller Member-Shapes in einem angegebenen Container auf der aktiven Seite abzurufen, diese Shapes zu durchlaufen und die ID der einzelnen Shapes im Direktfenster zu drucken.
For Each memberID In vsoContainerShape.ContainerProperties.GetMemberShapes(visContainerFlagsDefault)
Set vsoShape = ActivePage.Shapes.ItemFromID(memberID)
Debug.Print vsoShape.ID
Next
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.