Excel VBAにおけるThemeColor プロパティの使用方法

Excel VBAの ThemeColor プロパティは、セルやオブジェクトのテーマ色を取得または設定するためのプロパティです。テーマ色はExcelの標準的な色セットの一部で、一貫したデザインを持たせるために使用されます。

使用方法

ThemeColor プロパティは、セルのフォントや罫線の色を取得または設定する際に使用されます。値はXlThemeColor列挙型の定数で指定します。

XlThemeColorの値

• • xlThemeColorAccent1 – アクセント1
  • xlThemeColorAccent2 – アクセント2
  • xlThemeColorAccent3 – アクセント3

サンプルコード

以下はThemeColor プロパティを使用して、A1セルのフォントのテーマ色をアクセント1に設定するサンプルコードです。

Sub SetCellThemeColor()
    ActiveSheet.Range("A1").Font.ThemeColor = xlThemeColorAccent1
End Sub
    

このサンプルコードを実行すると、A1セルのフォントの色がアクセント1の色に変わります。

動的な機能を持つサンプルコード

以下のサンプルコードは、ユーザーにセルのアドレスとテーマ色の番号を入力してもらい、指定されたセルのフォントのテーマ色を変更するものです。

Sub SetSpecifiedCellThemeColor()
    Dim cellAddress As String
    Dim themeColorIndex As Integer

    cellAddress = InputBox("テーマ色を変更したいセルのアドレスを入力してください。")
    themeColorIndex = InputBox("設定したいテーマ色の番号を入力してください(例: 1でアクセント1)。")

    If cellAddress <> "" And themeColorIndex > 0 Then
        ActiveSheet.Range(cellAddress).Font.ThemeColor = themeColorIndex
        MsgBox cellAddress & "セルのフォントのテーマ色を変更しました。"
    Else
        MsgBox "セルアドレスまたはテーマ色の番号が正しく入力されませんでした。"
    End If
End Sub
    

このサンプルコードを実行すると、入力ボックスが表示され、ユーザーがセルのアドレスとテーマ色の番号を入力することができます。

まとめ

Excel VBAの ThemeColor プロパティを使用することで、セルやオブジェクトのテーマ色を容易に取得・設定することができます。このプロパティを活用することで、Excelのデザインを一貫して制御することができます。