網かけ(パターン)を取得・設定する
セルの背景に網かけ(パターン)を設定したり、設定されている網かけを取得するには、Interior オブジェクトのPattern プロパティを使用します。パターンを表す定数(XlPattern 列挙型)を指定することができます。
また、網かけ(パターン)の色を設定するには、PatternColor プロパティやPatternColorIndex プロパティ、PatternThemeColor プロパティを使用します。
Pattern プロパティ
【書式】
<取得>
result = Object.Pattern
<設定>
Object.Pattern = const
引数・戻り値
- object ・・・ 対象となる Interior オブジェクトを指定します。
- const ・・・ 網かけ(パターン)を表す定数(XlPattern 列挙型)を指定します。
- result ・・・ 設定されている網かけ(パターン)を表す値(XlPattern 列挙型)。
対象となるオブジェクトは、Interior オブジェクトの他、ChartFillFormat(グラフ要素)、FillFormat(図形)、LineFormat(線・矢印)などがあります。ただし、指定できる定数は、オブジェクトによって異なります。
引数 const に指定する定数(XlPattern 列挙)
定数 | 値 | 内容 | パターン |
xlPatternAutomatic | -4105 | Excel がパターンを制御 | |
xlPatternChecker | 9 | チェッカーボード | |
xlPatternCrissCross | 16 | 十字線 | |
xlPatternDown | -4121 | 左上から右下までの濃い対角線 | |
xlPatternGray16 | 17 | 16% 灰色 | |
xlPatternGray25 | -4124 | 25% 灰色 | |
xlPatternGray50 | -4125 | 50% 灰色 | |
xlPatternGray75 | -4126 | 75% 灰色 | |
xlPatternGray8 | 18 | 8% 灰色 | |
xlPatternGrid | 15 | グリッド | |
xlPatternHorizontal | -4128 | 濃い横線 | |
xlPatternLightDown | 13 | 左上から右下までの明るい対角線 | |
xlPatternLightHorizontal | 11 | 明るい横線 | |
xlPatternLightUp | 14 | 左下から右上までの明るい対角線 | |
xlPatternLightVertical | 12 | 明るい縦線 | |
xlPatternNone | -4142 | パターンなし | |
xlPatternSemiGray75 | 10 | 75% 濃いモアレ | |
xlPatternSolid | 1 | 純色 | |
xlPatternUp | -4162 | 左下から右上までの濃い対角線 | |
xlPatternVertical | -4166 | 濃い縦線 |
PatternColor プロパティ・PatternColorIndex プロパティ
【書式:PatternColor プロパティ】
<取得>
result_rgb = Object.PatternColor
<設定>
Object.PatternColor = rgb
【書式:PatternColorIndex プロパティ】
<取得>
result_index = Object.PatternColorIndex
<設定>
Object.PatternColorIndex = index
引数・戻り値
網かけ(パターン)を取得・設定する 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub Sample_Pattern() With Range("B3:F7").Interior 'セルの背景色を設定 .Color = RGB(150, 255, 125) 'セルの背景にパターンを設定 .Pattern = xlPatternLightVertical 'パターンに色を設定 .PatternColor = rgbDeepPink End With End Sub |