次の方法で共有

Cells.SetWidth メソッド (Word)

  • [アーティクル]

表の中の列またはセルの幅を設定します。

構文

expression. SetWidth( _ColumnWidth_ , _RulerStyle_ )

expression 必須です。 'Cells' コレクションを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
ColumnWidth 必須 単精度浮動小数点型 (Single) 指定された列の幅をポイント単位で指定します。
RulerStyle 必須 WdRulerStyle セル幅の調整方法を制御します。

注釈

上記の WdRulerStyle 動作は、左揃えテーブルに適用されます。 中央揃えテーブルと右揃えテーブルの WdRulerStyle の動作は予期しない場合があります。このような場合は、 SetWidth メソッドを慎重に使用する必要があります。

例

次の使用例は、新しい文書に表を作成し、2 番目の行の 1 番目のセルの幅を 30mm に設定します。 この使用例では、表の中の他のセルの幅はそのまま保持します。

Set newDoc = Documents.Add 
Set myTable = _ 
 newDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, _ 
 NumColumns:=3) 
myTable.Cell(2,1).SetWidth _ 
 ColumnWidth:=InchesToPoints(1.5), _ 
 RulerStyle:=wdAdjustNone

次の使用例は、カーソルが置かれているセルの幅を 36 ポイントに設定します。 この使用例では、表の右端の位置が変わらないようにセルの幅を変更します。

If Selection.Information(wdWithInTable) = True Then 
 Selection.Cells(1).SetWidth ColumnWidth:=36, _ 
 RulerStyle:=wdAdjustFirstColumn 
Else 
 MsgBox "The insertion point is not in a table." 
End If

関連項目

Cells コレクション オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。