図形(オートシェイプ)の塗りつぶしの色を変えたい【VBA】

環境

Windowsの仕様

エディション:Windows 10 Pro

バージョン:20H2

経緯

VBAで図形を出してみました。

塗りつぶしている色を変えたかったので、今回勉強してみました。

「.Fill.ForeColor.RGB = 」を使う。

まずはプログラムを書きますね。

ActiveSheet.Shapes(1).Fill.ForeColor.RGB = RGB(0,0,0)

ちなみにRGB(0,0,0)は白色です。

これでうまくいきました。

参考にしてください。

ここまで読んでいただきありがとうございました。