Table.Rows プロパティ (Publisher)
指定範囲、選択範囲、または表の中のすべての行を表す Rows コレクションを取得します。
構文
式。行
式Table オブジェクトを表す変数。
注釈
コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。
例
次の使用例は、指定した表の偶数行の塗りつぶしを設定し、奇数行の塗りつぶしを消去します。 次の使用例は、指定した図形がテーブルであり、別の種類の図形ではないことを前提としています。
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
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示