ThemeColor プロパティでセルの背景色を設定する
A1:C3の背景にブックのテーマのアクセント1を設定します。
実行前に確認
- 通常の背景色・模様を変更します。条件付き書式があるとそちらが優先して表示される場合があります。
1サンプルコード
Sub Example1193()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
ws.Range("A1:C3").Interior.ThemeColor = xlThemeColorAccent1
End Sub図で見る操作の流れ
イメージ図コードの動きを表した概念図です。実際のExcel画面ではありません。
対象：Sheet1!A1:C3
通常の背景書式がある9セル
マクロ：テーマ色を指定
背景にxlThemeColorAccent1を設定する
結果：アクセント1の背景
実際の色はブックのテーマに従う
固定の青色を指定する例ではありません。条件付き書式の色が優先して表示される場合があります。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
練習用のブックを.xlsm形式で保存し、Sheet1という名前のシートを用意します。A1:C3を背景設定の練習用に使います。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］へコードを貼り付けます。
- 3
xlThemeColorAccent1を他のテーマ色の定数へ変えます。
- 4
マクロ内にカーソルを置いてF5で実行します。ブックのテーマに応じた色になります。