Freigeben über

Cell.Row-Eigenschaft (Publisher)

  • Artikel

Gibt eine lange, die die Nummer der Zeile mit der angegebenen Zelle darstellt. Schreibgeschützt.

Syntax

Ausdruck. Zeile

Ausdruck Eine Variable, die ein Cell-Objekt darstellt.

Beispiel

Das folgende Beispiel gibt die Füllung für alle gerade nummerierten Zeilen an und löscht die Füllung für alle ungerade nummerierten Zeilen in der angegebenen Tabelle. In diesem Beispiel wird davon ausgegangen, dass es sich bei der angegebenen Form um eine Tabelle und nicht um einen anderen Formtyp handelt.

Sub FillCellsByRow() 
 Dim shpTable As Shape 
 Dim rowTable As Row 
 Dim celTable As Cell 
 
 Set shpTable = ActiveDocument.Pages(1).Shapes _ 
 .AddTable(NumRows:=5, NumColumns:=5, Left:=100, _ 
 Top:=100, Width:=100, Height:=12) 
 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

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.