次の方法で共有


Columns.AutoFit メソッド (Word)

セル内での文字列の配列は変更しないで、表の列幅を文字列の幅に合わせて変更します。

構文

AutoFit

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

注釈

表の幅が、用紙の左右の余白を除いた幅と等しい場合は、このメソッドは無効です。

次の使用例は、新しい文書に 3 列 3 行の表を作成し、文字列の幅に合わせて先頭列の列幅を変更します。

Dim docNew as Document 
Dim tableNew as Table 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=3, NumColumns:=3) 
With tableNew 
 .Cell(1,1).Range.InsertAfter "First cell" 
 .Columns(1).AutoFit 
End With

次の使用例は、新しい文書に 3 列 3 行の表を作成し、文字列の幅に合わせてすべての列の列幅を変更します。

Dim docNew as Document 
Dim tableNew as Table 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3) 
With tableNew 
 .Cell(1,1).Range.InsertAfter "First cell" 
 .Cell(1,2).Range.InsertAfter "This is cell (1,2)" 
 .Cell(1,3).Range.InsertAfter "(1,3)" 
 .Columns.AutoFit 
End With

関連項目

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

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

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