Shape.DeleteRow-Methode (Visio)

Artikel
04/07/2023

Löscht eine Zeile aus einem Abschnitt in einer ShapeSheet-Kalkulationstabelle.

Syntax

Ausdruck. DeleteRow( _Section_ , _Row_ )

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Section	Erforderlich	Integer	Der Index des Abschnitts, der die Zeile enthält.
Row	Erforderlich	Integer	Der Index der zu löschenden Zeile.

Rückgabewert

Nichts

Bemerkungen

Wenn Sie Zeilen nacheinander aus einem ShapeSheet-Abschnitt löschen möchten, verwenden Sie die DeleteRow-Methode. Wenn der Abschnitt indizierte Zeilen besitzt, werden die Zeilen, die auf die gelöschte Zeile folgen, verschoben. Ist die Zeile nicht vorhanden, wird auch keine gelöscht.

Sie sollten keine Zeilen löschen, die grundlegende Merkmale eines Shapes definieren, z. B. die Zeile 1D Endpoints (visRowXForm1D) oder die Komponentenzeile (visRowComponent) oder die MoveTo-Zeile (visRowVertex + 0) in einem Geometry-Abschnitt. Sie können keine Zeilen aus Abschnitten löschen, die durch visSectionCharacter, visSectionParagraph und visSectionTab dargestellt werden.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der DeleteRow-Methode eine ShapeSheet-Zeile löschen.

Public Sub DeleteRow_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 
 
 'Add a row to the scratch section. 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
 'Delete the row from the scratch section. 
 vsoShape.DeleteRow visSectionScratch, visRowScratch 
 
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