Shape.AddSection-Methode (Visio)

  • Artikel

Fügt einer ShapeSheet-Kalkulationstabelle einen neuen Abschnitt hinzu.

Syntax

Ausdruck. AddSection( _Section_ )

Ausdruck 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

HinwBemerkungeneise

Die AddSection-Methode wird häufig verwendet, um einem Shape einen oder mehrere Geometry-Abschnitte hinzuzufügen. Sie können addSection auch verwenden, um einem Shape weitere Abschnitte hinzuzufügen, z. B. Scratch, Controls, Connection Points, Actions, User-Defined Cells 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, einem Shape, das diesen Abschnitt bereits enthält, einen Nicht-Geometry-Abschnitt hinzuzufügen, löst die AddSection-Methode eine Ausnahme aus. Verwenden Sie die SectionExists-Eigenschaft , um zu bestimmen, ob ein Shape bereits über einen Abschnitt mit einem bestimmten logischen Index verfügt.

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 geometry-Abschnitte zurück, die in einer Form enthalten sind. Verwenden Sie den folgenden Code, um einem Shape einen Geometry-Abschnitt hinzuzufügen:

Shape.AddSection(visSectionFirstComponent + i)

dabei 0 <= i <visSectionLastComponent - visSectionFirstComponent.

  • Wenn 0 <= i <Shape.GeometryCount ist, geht der neue Abschnitt dem aktuellen abschnitt Geometry voran.

  • Bei 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.