Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Fügt einer ShapeSheet-Kalkulationstabelle einen neuen Abschnitt hinzu.
Syntax
Ausdruck.
AddSection( _Section_ )
expression Eine Variable, die ein Shape-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Section | Erforderlich | Integer | Der Typ des hinzuzufügenden Abschnitts. |
Rückgabewert
Ganze Zahl
Hinweise
Die AddSection-Methode wird häufig verwendet, um einem Shape einen oder mehrere Geometrieabschnitte hinzuzufügen. Sie können AddSection auch verwenden, um einer Form weitere Abschnitte hinzuzufügen, z. B. Scratch, Steuerelemente, Verbindungspunkte, Aktionen, User-Defined Zellen und ShapeData. Die AddSection-Methode gibt den logischen Index des hinzugefügten Abschnitts zurück.
Die Abschnitte, die Sie einem Shape hinzufügen können, entsprechen den Optionen, die im Dialogfeld "Abschnitt einfügen " angezeigt werden, wenn das Shape in einem ShapeSheet-Fenster angezeigt wird.
Wenn Sie versuchen, einer Form, die diesen Abschnitt bereits aufweist, einen Nicht-Geometrie-Abschnitt hinzuzufügen, löst die AddSection-Methode eine Ausnahme aus. Verwenden Sie die SectionExists-Eigenschaft, um zu bestimmen, ob ein Shape bereits einen Abschnitt mit einem bestimmten logischen Index enthält.
Ein neuer Abschnitt weist keine Zeilen auf. Fügen Sie dem neuen Abschnitt mithilfe der AddRow-Methode Zeilen hinzu.
Die GeometryCount-Eigenschaft gibt die Anzahl der Geometrieabschnitte zurück, die in einem Shape enthalten sind. Verwenden Sie den folgenden Code, um einem Shape einen Geometrieabschnitt hinzuzufügen:
Shape.AddSection(visSectionFirstComponent + i)
where 0 <= i <visSectionLastComponent - visSectionFirstComponent.
Wenn 0 <= i <Shape.GeometryCount, geht der neue Abschnitt dem aktuellen i'ten Geometrieabschnitt voraus.
Wenn Shape.GeometryCount<= i <visSectionLastComponent - visSectionFirstComponent, ist der neue Abschnitt der letzte Abschnitt.
Beispiel
Das folgende Makro zeigt, wie Sie dem ShapeSheet eines Rechtecks einen Abschnitt Scratch hinzufügen. Bevor Sie dieses Makro ausführen, sollten Sie sicherstellen, dass im Visio-Fenster ein Zeichenblatt aktiv ist.
Public Sub AddSection_Example()
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
'Get the active page.
Set vsoPage = ActivePage
'Draw a rectangle on the active page.
Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1)
'Add a scratch section to the ShapeSheet.
vsoShape.AddSection visSectionScratch
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.