カラー スケールの条件付き書式のしきい値またはデータ バーの条件付き書式のバーの色に指定された塗りつぶし色を表します。
注釈
Color プロパティに RGB 値を渡して色を選択することも、ThemeColor プロパティを使用してテーマ カラー パレットにインデックスを設定して色を指定することもできます。
例
次のコード例は、数値の範囲を作成し、2 色スケールの条件付き書式ルールをその範囲に適用します。 次に、 ColorScaleCriteria コレクションにインデックスを設定して個々の基準を設定することにより、最小しきい値の色は赤に、最大しきい値は青に割り当てられます。
Sub CreateColorScaleCF()
Dim cfColorScale As ColorScale
'Fill cells with sample data from 1 to 10
With ActiveSheet
.Range("C1") = 1
.Range("C2") = 2
.Range("C1:C2").AutoFill Destination:=Range("C1:C10")
End With
Range("C1:C10").Select
'Create a two-color ColorScale object for the created sample data range
Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=2)
'Set the minimum threshold to red and maximum threshold to blue
cfColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0)
cfColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(0, 0, 255)
End Sub
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。