Table.AutoFormat メソッド (Word)
あらかじめ定義されている書式を表に設定します。
構文
式。 AutoFormat
( _Format_
, _ApplyBorders_
, _ApplyShading_
, _ApplyFont_
, _ApplyColor_
, _ApplyHeadingRows_
, _ApplyLastRow_
, _ApplyFirstColumn_
, _ApplyLastColumn_
, _AutoFit_
)
expression 必須です。 'Table' オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Format | オプション | バリアント型 (Variant) | 適用する形式です。 このパラメーターは、 WdTableFormat 定数、 WdTableFormatApply 定数、 TableStyle オブジェクトを取得できます。 |
ApplyBorders | 省略可能 | バリアント型 (Variant) | True を指定した形式の枠線のプロパティを適用します。 既定値は、 true を指定 します。 |
ApplyShading | 省略可能 | バリアント型 (Variant) | True を指定した書式の網かけのプロパティを適用します。 既定値は、 true を指定 します。 |
ApplyFont | 省略可能 | バリアント型 (Variant) | True を指定した書式のフォントのプロパティを適用します。 既定値は、 true を指定 します。 |
ApplyColor | 省略可能 | バリアント型 (Variant) | True を指定した形式の色のプロパティを適用します。 既定値は、 true を指定 します。 |
ApplyHeadingRows | 省略可能 | バリアント型 (Variant) | True を指定した書式のタイトル行に関するプロパティが適用されます。 既定値は、 true を指定 します。 |
ApplyLastRow | 省略可能 | バリアント型 (Variant) | True を指定した書式の最終行に関するプロパティが適用されます。 既定値は、 false を指定 します。 |
ApplyFirstColumn | 省略可能 | バリアント型 (Variant) | True を指定した書式の先頭列のプロパティを適用します。 既定値は、 true を指定 します。 |
ApplyLastColumn | 省略可能 | バリアント型 (Variant) | True を指定した書式の最終列に関するプロパティが適用されます。 既定値は、 false を指定 します。 |
AutoFit | 省略可能 | バリアント型 (Variant) | True の テキストを変更することがなく、可能な限り多くのテーブルの列の幅を狭くには、セルにラップします。 既定値は True です。 |
注釈
このメソッドの引数は、[表のオートフォーマット] ダイアログ ボックス内のオプションに対応します。
例
次の使用例は、新しい文書で 5 列 5 行の表を作成し、[カラフル 2] の書式のすべての設定を表に適用します。
Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
myTable.AutoFormat Format:=wdTableFormatColorful2
次の使用例は、カーソルが現在置かれている表に、[クラシック 2] の書式のすべての設定を適用します。 カーソルが表の中にない場合は、メッセージ ボックスが表示されます。
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).AutoFormat Format:=wdTableFormatClassic2
Else
MsgBox "The insertion point is not in a table."
End If
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。