即効テクニック

書式設定関連のテクニック

パターンを設定する

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