スキルアップ・問題解決なら、モーグにおまかせ！

塗りつぶしのパターンを設定します。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種類と多くなっています。マクロ記録やヘルプを参考にしてください。