グラデーション（Pattern プロパティ・Gradient プロパティ）

2015/07/22 2015/08/26

セルの背景ににグラデーションを設定する

Pattern プロパティを使用するとセルの背景にグラデーション（線形グラデーションまたは、四角形グラデーション）を設定することができます。
グラデーションを構成する色の設定には、ColorStops オブジェクトを使用します。
線形グラデーションで、色の角度を指定するには、Gradient オブジェクトの Degree プロパティを使用します。四角形グラデーションで、グラデーションの上下左右それぞれの位置を指定するには、Gradient オブジェクトの RectangleLeft・RectangleRight・RectangleTop・RectangleBottom プロパティを使用します。

Pattern プロパティ

【書式】

object.Pattern = { xlPatternLinearGradient | xlPatternRectangularGradient }

引数・戻り値

object ・・・対象となる Interior オブジェクトを指定します。
xlPatternLinearGradient（4000）・・・ 線形グラデーションを指定します。
xlPatternRectangularGradient（4001）・・・ 四角形グラデーションを指定します。

グラデーションを設定できるのは、Excel 2007 以降です。

Gradient オブジェクト

【書式】

Interior.Gradient.Degree = angle

Interior.Gradient.RectangleLeft = d_left
Interior.Gradient.RectangleRight = d_right
Interior.Gradient.RectangleTop = d_top
Interior.Gradient.RectangleBottom = d_bottom

Gradient オブジェクトの説明

Degree プロパティ
線形グラデーションで、色が変化する角度を指定するために使用します。

RectangleLeft プロパティ他
四角形グラデーションで、上下左右の位置を指定するために使用します。

引数・戻り値

angle ・・・色が変化する方向の角度（0 ～ 360）を指定します。
　

設定する角度 内容

0 1 番目の色が左

90 1 番目の色が上

180 1 番目の色が右

360 1 番目の色が下

d_left ・・・四角形のグラデーションを設定した時の左位置（ 0 ～ 1 ）を指定します。
d_right ・・・四角形のグラデーションを設定した時の右位置（ 0 ～ 1 ）を指定します。
d_top ・・・四角形のグラデーションを設定した時の上位置（ 0 ～ 1 ）を指定します。
d_bottom ・・・四角形のグラデーションを設定した時の下位置（ 0 ～ 1 ）を指定します。

「1 番目の色」とは、ColorStops オブジェクトで最初に追加する色のことです。

　（例）
　　Range(“A1”).Interior.Gradient.Degree = 90
　　‘↓ここで追加した色が上になる
　　Range(“A1”).Interior.Gradient.ColorStops.Add(0).Color = RGB(255,0,0)
　　Range(“A1”).Interior.Gradient.ColorStops.Add(1).Color = RGB(0,255,0)

ColorsStops オブジェクト（Count プロパティ）

【書式】

object.Interior.Gradient.ColorStops.Count

プロパティの説明

作業中のセルにおける ColorStops の数（グラデーションを構成している色の数）を取得します。Count プロパティは、取得のみで、設定することはできません。

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。

ColorsStops オブジェクト（メソッド）

【書式】

object.Interior.Gradient.ColorStops.Add ( position ).Color = rgb

object.Interior.Gradient.ColorStops.Add ( position ).ThemeColor = index

object.Interior.Gradient.ColorStops.Clear

メソッドの説明

Add メソッド
ColorStops を追加します。Color プロパティやThemeColor プロパティ・TintAndShade プロパティで、グラデーションの色を指定します。ただし、ColorIndex プロパティは使用できません。

Clear メソッド
現在の ColorStops をクリアします。つまり、グラデーションを構成している色をすべて削除します。

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
position ・・・グラデーションを構成している色を追加する位置を倍精度浮動小数点型（Double）で指定します。（ 0：最初の色、1：最後の色、３色以上を指定する場合は、0 より大きく 1 未満の値を指定します。
rgb ・・・ RGB 値を指定します。RGB 関数を使用することも可能です（色の設定を参照）。
index ・・・ テーマカラーの基本色を表すMsoThemeColorSchemeindex 列挙型の定数または値（1 ～ 12）を指定します。（ ThemeColor プロパティ・TintAndShade プロパティを参照）

グラデーションの設定使用例

サンプルVBAソース

　
Sub Sample_Gradient()
    
    Worksheets("Sheet3").Activate
    
    With Range("C2").Interior
    
        '線形グラデーション
        .Pattern = xlPatternLinearGradient
        
        '色が変化する方向の角度を90度に設定
        .Gradient.Degree = 90
        
        '色情報をクリア
        .Gradient.ColorStops.Clear
        
        'グラデーションで使用する色を設定
        .Gradient.ColorStops.Add(0).Color = rgbDarkBlue
        .Gradient.ColorStops.Add(1).Color = rgbAzure

    End With
    
    With Range("E2").Interior
    
        '線形グラデーション
        .Pattern = xlPatternLinearGradient
        
        '色が変化する方向の角度を30度に設定
        .Gradient.Degree = 30
        
        '色情報をクリア
        .Gradient.ColorStops.Clear
        
        'グラデーションで使用する色を設定
        .Gradient.ColorStops.Add(0).Color = rgbRed
        .Gradient.ColorStops.Add(0.3).Color = rgbOrange
        .Gradient.ColorStops.Add(0.8).Color = rgbYellow
        .Gradient.ColorStops.Add(1).Color = rgbGreen

    End With
    
    With Range("C5").Interior
        
        '四角形グラデーション
        .Pattern = xlPatternRectangularGradient
        
        '位置を設定
        .Gradient.RectangleLeft = 0.5
        .Gradient.RectangleRight = 0.5
        .Gradient.RectangleTop = 0.5
        .Gradient.RectangleBottom = 0.5
        
        '色情報をクリア
        .Gradient.ColorStops.Clear
        
        'グラデーションで使用する色を設定
        .Gradient.ColorStops.Add(0).Color = RGB(255, 0, 0)
        .Gradient.ColorStops.Add(0.5).Color = RGB(0, 0, 255)
        .Gradient.ColorStops.Add(1).Color = RGB(255, 255, 0)
        
    End With

    With Range("E5").Interior
        
        '四角形グラデーション
        .Pattern = xlPatternRectangularGradient
        
        '位置を設定
        .Gradient.RectangleLeft = 0
        .Gradient.RectangleRight = 1
        .Gradient.RectangleTop = 0.5
        .Gradient.RectangleBottom = 0.5
        
        '色情報をクリア
        .Gradient.ColorStops.Clear
        
        'グラデーションで使用する色を設定（テーマカラー使用）
        .Gradient.ColorStops.Add(0).ThemeColor = msoThemeAccent2
        .Gradient.ColorStops.Add(0).TintAndShade = 0.4
        .Gradient.ColorStops.Add(1).ThemeColor = msoThemeAccent6
        .Gradient.ColorStops.Add(1).TintAndShade = -0.6
        
    End With

End Sub

Sub Sample_Gradient()

Worksheets("Sheet3").Activate

With Range("C2").Interior

'線形グラデーション

.Pattern = xlPatternLinearGradient

'色が変化する方向の角度を90度に設定

.Gradient.Degree = 90

'色情報をクリア

.Gradient.ColorStops.Clear

'グラデーションで使用する色を設定

.Gradient.ColorStops.Add(0).Color = rgbDarkBlue

.Gradient.ColorStops.Add(1).Color = rgbAzure

End With

With Range("E2").Interior

'線形グラデーション

.Pattern = xlPatternLinearGradient

'色が変化する方向の角度を30度に設定

.Gradient.Degree = 30

'色情報をクリア

.Gradient.ColorStops.Clear

'グラデーションで使用する色を設定

.Gradient.ColorStops.Add(0).Color = rgbRed

.Gradient.ColorStops.Add(0.3).Color = rgbOrange

.Gradient.ColorStops.Add(0.8).Color = rgbYellow

.Gradient.ColorStops.Add(1).Color = rgbGreen

End With

With Range("C5").Interior

'四角形グラデーション

.Pattern = xlPatternRectangularGradient

'位置を設定

.Gradient.RectangleLeft = 0.5

.Gradient.RectangleRight = 0.5

.Gradient.RectangleTop = 0.5

.Gradient.RectangleBottom = 0.5

'色情報をクリア

.Gradient.ColorStops.Clear

'グラデーションで使用する色を設定

.Gradient.ColorStops.Add(0).Color = RGB(255, 0, 0)

.Gradient.ColorStops.Add(0.5).Color = RGB(0, 0, 255)

.Gradient.ColorStops.Add(1).Color = RGB(255, 255, 0)

End With

With Range("E5").Interior

'四角形グラデーション

.Pattern = xlPatternRectangularGradient

'位置を設定

.Gradient.RectangleLeft = 0

.Gradient.RectangleRight = 1

.Gradient.RectangleTop = 0.5

.Gradient.RectangleBottom = 0.5

'色情報をクリア

.Gradient.ColorStops.Clear

'グラデーションで使用する色を設定（テーマカラー使用）

.Gradient.ColorStops.Add(0).ThemeColor = msoThemeAccent2

.Gradient.ColorStops.Add(0).TintAndShade = 0.4

.Gradient.ColorStops.Add(1).ThemeColor = msoThemeAccent6

.Gradient.ColorStops.Add(1).TintAndShade = -0.6

End With

End Sub

実行結果

- セルの操作 Color プロパティ, ColorStops オブジェクト, Gradient プロパティ, Pattern プロパティ, ThemeColor プロパティ, xlPatternLinearGradient, xlPatternRectangularGradient, エクセルVBA, セルの操作

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: 終端セルを参照する（End プロパティ）

End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

: ハイパーリンク（Hyperlink オブジェクト）

Hyperlink オブジェクト Hyperlinks コレクションのメンバー …

: 重複するデータを削除（RemoveDuplicates メソッド）

RemoveDuplicates メソッド指定したセル範囲から重複データを含む …

: セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

: ワイルドカードを使って検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: 非連続のセルが選択されているか確認する（Areas コレクション）

Areas コレクションの使い方複数の離れた位置にあるセル範囲を選択した場合 …

: 対象のセルが参照している全てのセルを取得（Precedents プロパティ）

Precedents プロパティ Precedents プロパティは、対象のセル …

: セルを参照する（Range プロパティ）

Range プロパティ任意のセルにアクセスするには Range プロパティを使 …

: コメントの設定（Comments, Comment, AddComment, ClearComment）

コメントの設定セルにコメントを新規に挿入するには、AddComment メソッ …

PREV: 網かけ（パターン）の取得・設定（Pattern プロパティ）
NEXT: 色を設定する（QBColor 関数）

グラデーション（Pattern プロパティ・Gradient プロパティ）

セルの背景ににグラデーションを設定する

Pattern プロパティ

引数・戻り値

Gradient オブジェクト

Gradient オブジェクトの説明

引数・戻り値

ColorsStops オブジェクト（Count プロパティ）

プロパティの説明

引数・戻り値

ColorsStops オブジェクト（メソッド）

メソッドの説明

引数・戻り値

グラデーションの設定使用例

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

終端セルを参照する（End プロパティ）

セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

ハイパーリンク（Hyperlink オブジェクト）

重複するデータを削除（RemoveDuplicates メソッド）

セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

ワイルドカードを使って検索（Find メソッド）

非連続のセルが選択されているか確認する（Areas コレクション）

対象のセルが参照している全てのセルを取得（Precedents プロパティ）

セルを参照する（Range プロパティ）

コメントの設定（Comments, Comment, AddComment, ClearComment）

SQL文を実行する(ADO)Execute メソッド

並べ替え（Sort オブジェクト, SortFields コレクション）

ブックのコピーを保存（SaveCopyAs メソッド）

テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

データベース（Oracle）に接続する（OLE DB を使用）

フィルタ解除して全データを表示（ShowAllData メソッド）

クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド

四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

データベース（Oracle）に接続する（ODBC を使用）

列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

設定する角度	内容
0	1 番目の色が左
90	1 番目の色が上
180	1 番目の色が右
360	1 番目の色が下

グラデーション（Pattern プロパティ・Gradient プロパティ）

セルの背景ににグラデーションを設定する

Pattern プロパティ

引数・戻り値

Gradient オブジェクト

Gradient オブジェクトの説明

引数・戻り値

ColorsStops オブジェクト（Count プロパティ）

プロパティの説明

引数・戻り値

ColorsStops オブジェクト（メソッド）

メソッドの説明

引数・戻り値

グラデーションの設定 使用例

サンプルVBAソース

実行結果

Message コメントをキャンセル

関連記事

グラデーションの設定使用例