Cells オブジェクト (Word)
テーブル列、テーブル行、選択範囲、または範囲の Cell オブジェクトのコレクション。
Cells プロパティを使用して Cells コレクションを取得します。 次の使用例は、作業中の文書の最初の表で、先頭行のセルの幅を 30 ポイントに設定します。
ActiveDocument.Tables(1).Rows(1).Cells.Width = 30
次の使用例は、現在の行のセルの数を取得します。
num = Selection.Rows(1).Cells.Count
Cells コレクションにCell オブジェクトを追加するには、 Add メソッドを使用します。 また、 Selection オブジェクトの InsertCells メソッドを使用して、新しいセルを挿入します。 次の使用例は、myTable の左上隅のセルの左側にセルを追加します。
Set myTable = ActiveDocument.Tables(1)
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)
Cell (行、列) を使用し、row は行番号、列は列番号、Cells (index) はインデックス番号を使用して Cell オブジェクトを返します。 次の使用例は、最初の表の先頭行の 2 番目のセルに網かけを設定します。
Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)
myCell.Shading.Texture = wdTexture20Percent
次の使用例は、先頭行の 1 番目のセルに網かけを設定します。
ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _
.Texture = wdTexture20Percent
注釈
セルの行または列を追加するには、Rows または Columns コレクションで Add メソッドを使用します。 次の使用例は、作業中の文書の最初の表に列を追加し、先頭列に数値を挿入します。
Set myTable = ActiveDocument.Tables(1)
Set aColumn = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1))
For Each aCell In aColumn.Cells
aCell.Range.Delete
aCell.Range.InsertAfter num + 1
num = num + 1
Next aCell
名前 |
---|
アプリケーション |
Borders |
Count |
Creator |
Height |
HeightRule |
NestingLevel |
Parent |
PreferredWidth |
PreferredWidthType |
Shading |
VerticalAlignment |
Width |
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。