Rows オブジェクト (Publisher)
表の行を表す Row オブジェクトのコレクションです。
Rows コレクションを取得 するには、 Table オブジェクトの Rows プロパティを使用します。
1 つの Row オブジェクトを返すには、Rows (index) を使用します。index はインデックス番号です。 インデックス番号は、 Rows コレクションで左から右に数えた行の位置を表します。
次の使用例は、作業中の文書の最初のテーブルの Rows コレクション内の Row オブジェクトの数を表示します。
Sub CountRows()
MsgBox ActiveDocument.Pages(2).Shapes(1).Table.Rows.Count
End Sub
次の使用例は、偶数行すべてに塗りつぶしを設定し、指定したテーブル内のすべての奇数行の塗りつぶしをクリアします。 次の使用例は、指定した図形がテーブルであり、別の種類の図形ではないことを前提としています。
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
次の例では、指定したテーブルの 3 番目の行を選択します。
Sub SelectRows()
ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Cells.Select
End Sub
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。