Shape.DeleteSection-Methode (Visio)

Artikel
04/07/2023

Löscht einen ShapeSheet-Abschnitt.

Syntax

Ausdruck. DeleteSection( _Section_ )

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Section	Erforderlich	Integer	Der Index des zu löschenden Abschnitts.

Rückgabewert

Nichts

Bemerkungen

Beim Löschen eines ShapeSheet-Abschnitts werden alle Zeilen im Abschnitt automatisch gelöscht. Ist der angegebene Abschnitt nicht vorhanden, wird keine Löschung vorgenommen, und es wird kein Fehler erzeugt.

Wenn ein geometrischer Abschnitt gelöscht wird, werden alle nachfolgenden geometrischen Abschnitte nach oben verschoben, da sie indiziert sind und ein indizierter Bereich keine Lücken enthalten darf.

Sie können jeden Abschnitt außer den durch visSectionObject dargestellten Abschnitt löschen (wobei Sie jedoch Zeilen innerhalb dieses Abschnitts löschen können).

Abschnittsindexwerte werden in der Visio-Typbibliothek in VisSectionIndices deklariert.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie ein ShapeSheet-Abschnitt gelöscht wird.

Public Sub DeleteSection_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 'Get the active page. 
 Set vsoPage = ActivePage 
 
 'If there isn't an active page, set the Page object 
 'to the first page of the active document. 
 If vsoPage Is Nothing Then 
 Set vsoPage = ActiveDocument.Pages(1) 
 End If 
 
 'Draw a rectangle on the active page. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Add a scratch section to the ShapeSheet of the rectangle. 
 vsoShape.AddSection visSectionScratch 
 
 'Delete the scratch section from the ShapeSheet. 
 vsoShape.DeleteSection 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.

Freigeben über