Table of contents
TOC
Inhaltsverzeichnis reduzieren
Inhaltsverzeichnis erweitern

Table.Rows-Eigenschaft (Herausgeber)Table.Rows Property (Publisher)

office 365 dev account|Zuletzt aktualisiert: 06.03.2018
|
3 Mitarbeiter

Gibt eine Rows -Auflistung, die alle Tabellenzeilen in einem Bereich, einer Auswahl oder einer Tabelle darstellt.Returns a Rows collection that represents all the table rows in a range, selection, or table.

SyntaxSyntax

Ausdruck. Zeilenexpression. Rows

_expression_A-Variable, die ein Table -Objekt darstellt._expression_A variable that represents a Table object.

BemerkungenRemarks

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter Zurückgeben eines Objekts aus einer Auflistung.For information about returning a single member of a collection, see Returning an Object from a Collection.

BeispielExample

Dieses 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. Hierbei wird angenommen, dass es sich bei der Form um eine Tabelle und nicht um einen anderen Formtyp handelt.This example enters the fill for all even-numbered rows and clears the fill for all odd-numbered rows in the specified table. This example assumes the specified shape is a table and not another type of shape.

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
© 2018 Microsoft