FillFormatオブジェクトのForeColorプロパティ、ColorFormatオブジェクトのObjectThemeColorプロパティ、LineFormatオブジェクトのForeColorプロパティ

オブジェクト.ForeColor.ObjectThemeColor

オブジェクト.ForeColor.RGB

図形の塗りつぶしを設定するには、まずFillプロパティでFillFormatオブジェクトを取得します。そしてFillFormatオブジェクトのForeColorプロパティでColorFormatオブジェクトを取得し、そのObjectThemeColorプロパティに、設定したいテーマの色を指定します。

　また、図形の枠線の色を設定するには、ShapeオブジェクトのLineプロパティでLineFormatオブジェクトを取得します。LineFormatオブジェクトのForeColorプロパティでColorFormatオブジェクトを取得し、テーマ色を指定します。

　なお、ForeColor.RGB = RGB（128, 54, 205）のように指定すれば、いずれもRGB値で色を指定することが可能です。

---

図形の塗りつぶしと枠線の色を設定

Sub Sample()

With ActiveSheet.Shapes(1)

.Fill.ForeColor.ObjectThemeColor = _

msoThemeColorBackground2

.Line.ForeColor.RGB = RGB(255, 0, 0)

End With

End Sub

 

実行例

 

IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp　ドメイン取るならお名前.com