図形の色を変更する方法
図形の色を変更するには、FillFormat オブジェクトを設定に使用します。「FillFormat」を取得するためには、「Shape」オブジェクトの「Fill」プロパティを使用します。
図形の色を変更するサンプルコード
RGB指定で色を変更
Sub setColor() ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 30, 100, 100) _ .Fill _ .ForeColor.RGB = RGB(255, 255, 255) End Sub
組込定数で色を変更
Sub setColor() ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 30, 100, 100) _ .Fill _ .ForeColor.RGB = vbRed End Sub
色の各指定表
カラー | 組込定数 | RGB指定 |
---|---|---|
vbBlack | RGB(0,0,0) | |
vbWhite | RGB(255,255,255) | |
vbRed | RGB(255,0,0) | |
vbGreen | RGB(0,255,0) | |
vbBlue | RGB(0,0,255) | |
vbYellow | RGB(255,255,0) | |
vbMagenta | RGB(255,0,255) | |
vbCyan | RGB(0,255,255) |
コメント