vbaでのテーマの配色変更

Question

エクセル2010VBAでOfficeテーマのAccent1 を 赤 に設定変更しようと、ThemeColorScheme.Colors メソッドのヘルプの使用例をそのまま実行したのですが、コンパイルエラー、プロパティの使い方が不正ですと表示されました。

どのような記述で、設定変更できるのでしょうか？

ご教示のほど宜しくお願いいたします。

Answer 1

仰っておられるようにオブジェクトが生成されてませんね。

ThemeColoerを変えたら何が起こるのか確認方法もわからない状態なんで、単にこうすれば動くというだけです。

Sub bbb()

ThisWorkbook.Theme.ThemeColorScheme.Colors(msoThemeAccent1) = RGB(255, 0, 0)

ThisWorkbook.Theme.ThemeColorScheme.Save ("C:\myThemeColorScheme.xml")

End Sub

動きますし、出力されたｘｍｌファイルを開いてみるとAccent1のところの色が変わってます。

（RGBのところを色々いじって試行して確認しました）

こういうことをうかがうのはおかしな話しですが、この変更がどういう効果となるのか、どうやったら確認できるんですか？

（元々美的感覚もってないので、VBAどころか、手動でもカラーパレットとかテーマは触ったことがありません）

Answer 2

早速のご回答ありがとうございます。

さて、私も下記のようにして、テーマカラーの取得および設定を行っています。

ActiveCell.Value = ActiveWorkbook.Theme.ThemeColorScheme.Colors(1)

 ActiveWorkbook.Theme.ThemeColorScheme.Colors(1) = RGB(255, 0, 0)

ただこれだと、テーマの配色12色が変更できるだけです。

テーマの配色変更だけでなく、TintAndShadeなどの設定も自由に行えるカラーパレットを作成できないものかと思いヘルプを参照してみてみました。

まずは最初からと思い、配色変更のヘルプを開いて例を実行すると、上手くいかず質問いたしました。

お騒がせして申し訳ございません。

ありがとうございました。