即効テクニック |
塗りつぶしのパターンを設定します。Interiorオブジェクトでは下の定数を使用します。 ●詳細● 構文 Object.Pattern 設定/取得 設定項目 内容 Object Interior、ChartFillFormat、FillFormat、 LineFormatオブジェクト [省略不可] ・InteriorオブジェクトのPatterプロパティで使用する定数一覧(XlPatternクラス) 定数 値 説明 xlPatternAutomatic -4105 自動 xlPatternChecker 9 左下がり斜線格子 xlPatternCrissCross 16 実線左下がり斜線格子 xlPatternDown -4121 右下がり縦線縞 xlPatternGray16 17 12.5%灰色 xlPatternGray25 -4124 25%灰色 xlPatternGray50 -4125 50%灰色 xlPatternGray75 -4126 75%灰色 xlPatternGray8 18 6.25%灰色 xlPatternGrid 15 実線横格子 xlPatternHorizontal -4128 横縞 xlPatternLightDown 13 実線右下がり斜線縞 xlPatternLightHorizontal 11 実線横縞 xlPatternLightUp 14 実線左下がり斜線縞 xlPatternLightVertical 12 実線縦縞 xlPatternNone -4142 パターン・塗りつぶし無し xlPatternSemiGray75 10 極太線左下がり斜線格子 xlPatternSolid 1 塗りつぶし xlPatternUp -4162 左下がり縦線縞 xlPatternVertical -4166 縦縞 次のサンプルは、使用中のセル範囲の空白セルにパターンをかけて、空白であることを明示します。 ●サンプル● Sub PatternSamp1() With ActiveSheet.UsedRange.SpecialCells(xlBlanks).Interior '---使用中のセル範囲の空白セルに対して .Pattern = xlPatternUp '---パターンを左下がり縦線縞に設定 .PatternColor = RGB(0, 0, 255) '---パターンの色を青に設定 End With End Sub (1)のステートメントでパターンを設定し、(2)のステートメントでパターンの色を設定しています。 ●ポイント● ChartFillFormat/FillFormat/LineFormatオブジェクトで使用する定数は、Interiorオブジェクトで使用するものとは異なります。また、使用できるパターンの数も48種類と多くなっています。マクロ記録やヘルプを参考にしてください。