セル オブジェクト (Word)
表のセルを表します。 Cell オブジェクトは Cells コレクションのメンバーです。 Cells コレクションは指定されたオブジェクトのすべてのセルを表します。
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
Add メソッドを使用して、 Cell オブジェクトを Cells コレクションに追加します。 また、 Selection オブジェクトの InsertCells メソッドを使用して、新しいセルを挿入します。 次の使用例は、 myTable
の左上隅のセルの左側にセルを追加します。
Set myTable = ActiveDocument.Tables(1)
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)
次の例では、最初のテーブルの最初の 2 つのセルを参照する範囲 ( myRange ) を設定します。 範囲を設定し、 Merge メソッドを使ってセルを結合します。
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _
.Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge
解説
Rows コレクションまたは Columns コレクションに対して Add メソッドを使用して、セルの行または列を追加します。
現在の行番号と列番号を取得するには、Selection オブジェクトで Information プロパティを使用します。 次の使用例は、選択範囲の最初のセルの幅を変更し、セルの行番号および列番号を表示します。
If Selection.Information(wdWithInTable) = True Then
With Selection
.Cells(1).Width = 22
MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _
& "," & .Information(wdStartOfRangeColumnNumber)
End With
End If
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。