vba カラーを変数に代入して色選択を簡単に

Public Const 黒色 As Long = 0
Public Const 白色 As Long = 16777215
Public Const 青色 As Long = 16711680
Public Const 水色 As Long = 16776960
Public Const 赤色 As Long = 255
Public Const ピンク As Long = 13353215
Public Const オレンジ As Long = 42495
Public Const 黄色 As Long = 65535
Public Const 黄緑 As Long = 65280
Public Const 緑色 As Long = 32768
Public Const 灰色 As Long = 13882323