Excel VBA 図形の塗りつぶしを設定するプロパティやメソッド　

図形の塗りつぶしを設定する方法

図形の塗りつぶしの設定をするには、Shape【ｼｪｲﾌﾟ】オブジェクトまたは、ShapeRange【ｼｪｲﾌﾟﾚﾝｼﾞ】コレクションのFill【ﾌｨﾙ】プロパティを使用してFillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトを取得します。FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトは、図形の塗りつぶしの書式設定を行うためのオブジェクトで、色、グラデーション、画像、テクスチャーなどいろいろな種類の設定を行うプロパティやメソッドを持っています。ちなみに、Fill【ﾌｨﾙ】は、満たすや充填するなどの意味があります。

Fill【ﾌｨﾙ】プロパティ

塗りつぶしの書式設定を行うFillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトを取得するにはFill【ﾌｨﾙ】プロパティを使用します。

Fill【ﾌｨﾙ】プロパティの書式と設定値の説明

オブジェクト.Fill

※Fill【ﾌｨﾙ】プロパティは、直線やコネクターには使用できません。直線の書式設定はLineFormat【ﾗｲﾝﾌｫｰﾏｯﾄ】オブジェクトを使用してください。

FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのプロパティ一覧

FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのメソッド一覧

ForeColor【ﾌｫｱｶﾗｰ】プロパティ

図形に色を設定するには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのForeColor【ﾌｫｱｶﾗｰ】プロパティを使用してColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトを取得します。ColorFormat【ｶﾗｰﾌｫｰﾏｯﾄ】オブジェクトは色をRGBプロパティのRGB関数で指定したりSchemeColor【ｽｷｰﾑｶﾗｰ】プロパティを使用して色番号で指定します。

ForeColor【ﾌｫｱｶﾗｰ】プロパティの書式と設定値の説明

オブジェクト.ForeColor

※SchemeColor【ｽｷｰﾑｶﾗｰ】プロパティの色番号はColorIndex【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティのインデックス番号とは異なります。ColorIndexプロパティのインデックス番号に7を加算した値がSchemcolorプロパティの色番号と同じになります。例として黒の場合ColorIndexプロパティは1、Schemcolorプロパティは8

Transparency【ﾄﾗﾝｽﾊﾟﾚﾝｼｨ】プロパティ

図形の塗りつぶしの透明度を設定または、取得するには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのTransparency【ﾄﾗﾝｽﾊﾟﾚﾝｼｨ】プロパティを使用します。

Transparency【ﾄﾗﾝｽﾊﾟﾚﾝｼｨ】プロパティの書式と設定値の説明

【設定】
オブジェクト.Transparency = 設定値
【戻り値】倍精度浮動小数点型(Single)の値

Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティ

図形の塗りつぶしの表示、非表示を設定または取得するには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを使用します。

Visible【ﾋﾞｼﾞﾌﾞﾙ】プロパティの書式と設定値の説明

【設定】
オブジェクト.Visible = 設定値
【戻り値】ブール型 (Boolean) の値

四角形を青で塗りつぶし透明度を50％に設定するコード例

Sub 図形塗りつぶし()
Dim R As Range
Set R = Range("B2:C5")
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height).Fill
.ForeColor.RGB = RGB(0, 0, 255)
.Transparency = 0.5
End With
End Sub

実行結果

OneColorGradient【ﾜﾝｶﾗｰｸﾞﾗﾃﾞｨｴﾝﾄ】メソッド

図形を1色のグラデーションで塗りつぶすには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのOneColorGradient【ﾜﾝｶﾗｰｸﾞﾗﾃﾞｨｴﾝﾄ】メソッドを使用します。ForeColor【ﾌｫｱｶﾗｰ】プロパティで指定した色と、明度によって指定した黒から白の間の色によりグラデーションを表現します。

OneColorGradient【ﾜﾝｶﾗｰｸﾞﾗﾃﾞｨｴﾝﾄ】メソッドの書式と設定値(引数)の説明

オブジェクト.OneColorGradient　GradientStyle, Variant, Degree

MsoGradientStyle列挙型の定数とVariantの値

TwoColorGradient【ﾄｩｶﾗｰｸﾞﾗﾃﾞｨｴﾝﾄ】メソッド

図形を2色のグラデーションで塗りつぶすには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのTwoColorGradient【ﾄｩｶﾗｰｸﾞﾗﾃﾞｨｴﾝﾄ】メソッドを使用します。1色目をForeColor【ﾌｫｱｶﾗｰ】プロパティで指定し、2色目をBackColor【ﾊﾞｯｸｶﾗｰ】プロパティで指定します。

TwoColorGradient【ﾄｩｶﾗｰｸﾞﾗﾃﾞｨｴﾝﾄ】メソッドの書式と設定値(引数)の説明

オブジェクト.TwoColorGradient　GradientStyle, Variant

赤と黄色の2色のグラデーションのバリエーションをセルに合わせて表示するコード例

Sub グラディション2色()
Dim R As Range
Dim i As Long
Dim j As Long
For i = 1 To 7
For j = 1 To 4
Set R = Cells(i, j)
On Error Resume Next
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height)
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.Weight = 1
.Fill.TwoColorGradient i, j
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Fill.BackColor.RGB = RGB(255, 255, 0)
End With
Next j
Next i
End Sub

実行結果

PresetGradient【ﾌﾟﾘｾｯﾄｸﾞﾗﾃﾞｨｴﾝﾄ】メソッド

あらかじめ用意されている規定のグラデーションを図形に設定するには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトPresetGradient【ﾌﾟﾘｾｯﾄｸﾞﾗﾃﾞｨｴﾝﾄ】メソッドを使用します。

PresetGradient【ﾌﾟﾘｾｯﾄｸﾞﾗﾃﾞｨｴﾝﾄ】メソッドの書式と設定値(引数)の説明

オブジェクト.PresetGradient Style, Variant, PersetGradientType

MsoPersetGradientTypeクラスの定数

Style 1 の場合

既定のグラデーションをセルに合わせた図形に表示するコート例

Sub 既定グラディション()
Dim R As Range
Dim i As Long
Dim j As Long
For i = 1 To 24
For j = 1 To 4
Set R = Cells(i, j)
On Error Resume Next
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height)
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.Weight = 1
.Fill.PresetGradient 1, j, i
End With
Next j
Next i
End Sub

PresetTextured【ﾌﾟﾘｾｯﾄﾃｸｽﾁｬｰﾄﾞ】メソッド

図形の塗りつぶしにテクスチャーを設定するには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのPresetTextured【ﾌﾟﾘｾｯﾄﾃｸｽﾁｬｰﾄﾞ】メソッドを使用します。

PresetTextured【ﾌﾟﾘｾｯﾄﾃｸｽﾁｬｰﾄﾞ】メソッドの書式と設定値(引数)の説明

オブジェクト.PresetTextured PresetTexture

MsoPresetTexture列挙型の定数

セルに合わせた図にすべてのテクスチャーを表示するコート例

Sub 既定テクスチャー()
Dim R As Range
Dim i As Long
For i = 1 To 24
Set R = Cells(i, 1)
On Error Resume Next
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height)
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.Weight = 1
.Fill.PresetTextured i
End With
Next i
End Sub

Patterned【ﾊﾟﾀｰﾝﾄﾞｩ】メソッド

図形の塗りつぶしに網かけなどのパターンを設定するには、FillFormat【ﾌｨﾙﾌｫｰﾏｯﾄ】オブジェクトのPatterned【ﾊﾟﾀｰﾝﾄﾞｩ】メソッドメソッドを使用します。パターン色をForeColor【ﾌｫｱｶﾗｰ】プロパティで指定し、背景色をBackColor【ﾊﾞｯｸｶﾗｰ】プロパティで指定ます。

Patterned【ﾊﾟﾀｰﾝﾄﾞｩ】メソッドの書式と設定値(引数)の説明

オブジェクト.Patterned Pattern

MsoPatternType列挙型の定数

セルに合わせた図形に54種類のパターンを表示するコード例

Sub パターン()
Dim R As Range
Dim i As Long
For i = 1 To 54
Set R = Cells(i, 1)
On Error Resume Next
With ActiveSheet.Shapes.AddShape(1, R.Left, R.Top, R.Width, R.Height)
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Line.Weight = 1
.Fill.Patterned i
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.BackColor.RGB = RGB(255, 255, 255)
End With
Next i
End Sub

以上で、図形の塗りつぶしを設定するプロパティやメソッドについての解説を終了します。ありがとうございました。