Patternプロパティ
Patternプロパティはセル背景に網掛け(パターン)を重ねることができます。
Colorプロパティと合わせると、よりアクセントになります。
構文
object.Pattern = 設定値
※設定値に使われるxlPatternの定数一覧はこちら。
各種網掛けをセルに表示させるサンプルコード
Public Sub Sample() '各網掛けを設定 Range("B2").Interior.Pattern = xlPatternSolid '1 Range("B3").Interior.Pattern = xlPatternChecker '2 Range("B4").Interior.Pattern = xlPatternCrissCross '3 Range("B5").Interior.Pattern = xlPatternGrid '4 Range("B6").Interior.Pattern = xlPatternGray8 '5 Range("B7").Interior.Pattern = xlPatternGray16 '6 Range("B8").Interior.Pattern = xlPatternGray25 '7 Range("B9").Interior.Pattern = xlPatternGray50 '8 Range("B10").Interior.Pattern = xlPatternGray75 '9 Range("B11").Interior.Pattern = xlPatternSemiGray75 '10 Range("C2").Interior.Pattern = xlPatternHorizontal '11 Range("C3").Interior.Pattern = xlPatternLightHorizontal '12 Range("C4").Interior.Pattern = xlPatternVertical '13 Range("C5").Interior.Pattern = xlPatternLightVertical '14 Range("C6").Interior.Pattern = xlPatternDown '15 Range("C7").Interior.Pattern = xlPatternLightDown '16 Range("C8").Interior.Pattern = xlPatternUp '17 Range("C9").Interior.Pattern = xlPatternLightUp '18 Range("C10").Interior.Pattern = xlPatternAutomatic '19 End Sub
※上記実行後
コメント