Shape.AddRow-Methode (Visio)

Fügt einem ShapeSheet-Abschnitt an der angegebenen Position eine Zeile hinzu.

Syntax

Ausdruck. AddRow( _Section_ , _Row_ , _RowTag_ )

expression Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Section	Erforderlich	Integer	Der Abschnitt, in dem die Zeile hinzugefügt werden soll.
Row	Erforderlich	Integer	Die Position, an der die Zeile hinzugefügt werden soll.
RowTag	Erforderlich	Integer	Der Typ der hinzuzufügenden Zeile.

Rückgabewert

Ganze Zahl

Hinweise

Wenn der ShapeSheet-Abschnitt noch nicht vorhanden ist, wird er mit einer leeren Zeile erstellt. Neue Zellen in neuen Zeilen werden, soweit zutreffend, mit Standardformeln initialisiert. Andernfalls muss ein Programm Anweisungen zum Festlegen der Formeln für die neuen Zellen enthalten. Falls die neue Zeile nicht hinzugefügt werden kann, wird ein Fehler generiert.

Die Visio-Typbibliothek deklariert Zeilenkonstanten mit dem Präfix visRow in VisRowIndices.

Konstanten für Zeilen in den Abschnitten Geometrie, Verbindungspunkte und Steuerelemente erhalten das Präfix visTag und werden von der Typbibliothek in VisRowTags deklariert. Eine Liste dieser Konstanten finden Sie in der RowType-Eigenschaft .

Die von der Visio-Typbibliothek deklarierten Zeilenkonstanten dienen als Basispositionen, an denen die Zeilen eines Abschnitts beginnen. Fügen Sie diesen Konstanten Offsets hinzu, um die erste Zeile und darüber hinaus anzugeben, z. B. visRowFirst +0, visRowFirst +1 usw. Um Zeilen am Ende eines Abschnitts hinzuzufügen, übergeben Sie die visRowLast-Konstante für das Row-Argument. Der zurückgegebene Wert ist der eigentliche Zeilenindex.

Das Argument RowTag gibt den Typ der hinzuzufügenden Zeile an. Um den Standardzeilentyp eines Abschnitts zu generieren, übergeben Sie visTagDefault (0) als RowTag-Argument . Explizite Tags sind nützlich, wenn Zeilen zu den Abschnitten Geometrie, Verbindungspunkte und Steuerelemente hinzugefügt werden. Beschreibungen gültiger Zeilentypen für diese Abschnitte finden Sie in der RowType-Eigenschaft . Das Übergeben eines ungültigen Zeilentyps generiert einen Fehler.

Ein Fehler wird gemeldet, wenn Sie versuchen, einem Abschnitt Characters, Tab oder Paragraph eine Zeile hinzuzufügen.

Mit der AddRow-Methode können keine benannten Zeilen hinzugefügt werden. Verwenden Sie die AddNamedRow-Methode, um benannte Zeilen hinzuzufügen.

Wenn Sie zeilen zu einem Abschnitt hinzufügen, der über benennende Zeilen verfügt (z. B. den Abschnitt Verbindungspunkte oder Steuerelemente), wird das Argument Row ignoriert. Standardmäßig werden benannte Zeilen in der hinzugefügten Reihenfolge benannt, z. B. Row_1, Row_2 usw. Die Benennungsreihenfolge wird jedoch durch vorhandene oder zuvor gelöschte Zeilen beeinflusst.

Beispiel

Im folgenden Beispiel wird gezeigt, wie Sie einem ShapeSheet einen Abschnitt hinzufügen und wie Sie dem Abschnitt an der angegebenen Position eine Zeile hinzufügen.

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