TableStyle オブジェクト (Word)
表に適用できる単一のスタイルを表します。
注釈
Styles オブジェクトの Table プロパティを使用して、TableStyle オブジェクトを取得します。 Borders プロパティを使用して、テーブル全体に罫線を適用します。 Condition メソッドを使用して、表の指定されたセクションにのみ罫線または網掛けを適用します。 次の使用例は、新しい表スタイルを作成し、その表の周囲に罫線を指定します。 特殊な罫線と網かけを、先頭行と最終行および最終列に指定します。
Sub NewTableStyle()
Dim styTable As Style
Set styTable = ActiveDocument.Styles.Add( _
Name:="TableStyle 1", Type:=wdStyleTypeTable)
With styTable.Table
'Apply borders around table
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
'Apply a double border to the heading row
.Condition(wdFirstRow).Borders(wdBorderBottom) _
.LineStyle = wdLineStyleDouble
'Apply a double border to the last column
.Condition(wdLastColumn).Borders(wdBorderLeft) _
.LineStyle = wdLineStyleDouble
'Apply shading to last row
.Condition(wdLastRow).Shading _
.BackgroundPatternColor = wdColorGray125
End With
End Sub
メソッド
| 名前 |
|---|
| Condition |
プロパティ
| 名前 |
|---|
| Alignment |
| AllowBreakAcrossPage |
| AllowPageBreaks |
| アプリケーション |
| Borders |
| BottomPadding |
| ColumnStripe |
| Creator |
| LeftIndent |
| LeftPadding |
| Parent |
| RightPadding |
| RowStripe |
| Shading |
| Spacing |
| TableDirection |
| TopPadding |
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。