ConditionalStyle オブジェクト (Word)
選択した表が、指定された表のスタイルで書式設定されている場合に、表の指定領域に適用する特殊な書式設定を表します。
注釈
TableStyle オブジェクトの Condition メソッドを使用して、 ConditionalStyle オブジェクトを取得します。 表の指定領域に網かけの設定を適用する 網かけの設定 プロパティを使用できます。 この例では、作業中の文書の最初の表を選択し、代替の行と列に網かけの設定が適用されます。 次の使用例は、作業中の文書に表があることと、フォーマットされている表スタイルを使用すると仮定します。
Sub ApplyConditionalStyle()
With ActiveDocument
.Tables(1).Select
With .Styles("Table Grid").Table
.Condition(wdOddColumnBanding).Shading _
.BackgroundPatternColor = wdColorGray10
.Condition(wdOddRowBanding).Shading _
.BackgroundPatternColor = wdColorGray10
End With
End With
End Sub
表の指定領域に罫線を適用するのにには、 Borders プロパティを使用します。 次の使用例は作業中の文書の最初の表を選択し、最初と最後の行と最初の列に罫線を適用します。 次の使用例は、作業中の文書に表があることと、フォーマットされている表スタイルを使用すると仮定します。
Sub ApplyTableBorders()
With ActiveDocument
.Tables(1).Select
With .Styles("Table Grid").Table
.Condition(wdFirstRow).Borders(wdBorderBottom) _
.LineStyle = wdLineStyleDouble
.Condition(wdFirstColumn).Borders(wdBorderRight) _
.LineStyle = wdLineStyleDouble
.Condition(wdLastRow).Borders(wdBorderTop) _
.LineStyle = wdLineStyleDouble
End With
End With
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示