Zeilenobjekt (Herausgeber)

Stellt eine Zeile in einer Tabelle dar. Das Row -Objekt ist ein Element der Zeilen Auflistung. Die Rows -Auflistung enthält alle Zeilen in einer angegebenen Tabelle.

Hinweise

Verwenden Sie Zeilen (Index), wobei index die Zeilennummer ist, um ein einzelnes Zeilenobjekt zurückzugeben. Die Indexnummer stellt die Position der Zeile in der Rows -Auflistung (von links nach rechts gezählt).

Verwenden Sie die Item -Methode eine Zeilen Auflistung, um ein Row -Objekt zurückzugeben.

Verwenden Sie die Hinzufügen Methode, um eine Tabelle eine Zeile hinzuzufügen.

Verwenden Sie das Löschen Methode, um eine Zeile aus einer Tabelle zu löschen.

Beispiel

In diesem Beispiel wird die erste Zeile im ersten Shape auf dem zweiten Seite der aktiven Publikation ausgewählt. In diesem Beispiel wird davon ausgegangen, dass es sich bei dem angegebenen Shape um eine Tabelle und nicht um einen anderen Shape-Typ handelt.

Sub SelectRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(1).Cells.Select 
End Sub

In diesem Beispiel wird die Ausfüllung für alle geraden Zeilen festgelegt, und die Ausfüllung wird für alle ungeraden Zeilen in der angegebenen Tabelle gelöscht. In diesem Beispiel wird davon ausgegangen, dass es sich bei dem angegebenen Shape um eine Tabelle und nicht um einen anderen Shape-Typ handelt.

Sub FillCellsByRow() 
 Dim shpTable As Shape 
 Dim rowTable As Row 
 Dim celTable As Cell 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each rowTable In shpTable.Table.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Row Mod 2 = 0 Then 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=180, Green:=180, Blue:=180) 
 Else 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=255, Blue:=255) 
 End If 
 Next celTable 
 Next rowTable 
 
End Sub

In diesem Beispiel wird der angegebenen Tabelle auf der zweiten Seite der aktiven Publikation eine Zeile hinzugefügt, und klicken Sie dann legt eine gleiche Breite, verbindet die Zellen und legt die Füllfarbe fest. In diesem Beispiel wird angenommen, dass das erste Shape eine Tabelle und kein anderer Shape-Typ ist.

Sub NewRow() 
 Dim rowNew As Row 
 
 Set rowNew = ActiveDocument.Pages(2).Shapes(1).Table.Rows _ 
 .Add(BeforeRow:=3) 
 With rowNew 
 .Height = 2 
 .Cells.Merge 
 .Cells(1).Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
End Sub

In diesem Beispiel wird die im vorherigen Beispiel hinzugefügte Zeile gelöscht.

Sub DeleteRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Delete 
End Sub

Methoden

Eigenschaften

Siehe auch

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.

  • Last updated on