セル空欄時には斜線（２）

!! マクロ記録 : 2007/03/31 21:52:09
with Worksheet.Diagonals.Add(Range("A2"), Range("B1"))
　　　　..LineStyle = snsLineThinSolid
　　　　..Color = RGB(0, 0, 0)
end with

上の記録マクロから、あれこれ調べてみました。

（１）1行目で斜線を引くセルを特定しているようです。

　　これは左下から右上に斜線を引く場合と左上から右下に

　　引く場合で位置の指定が少し違うようです。

　　★左下から右上

　　　with Worksheet.Diagonals.Add(Range("下のセル番地"), Range("右のセル番地"))

　　★左上から右下

　　　with Worksheet.Diagonals.Add(Range("斜線を引くセル番地"), Range("右下のセル番地"))

（２）2行目は線種です。ちなみにsnsLineThinSolidは

　　細実線を示す文字定数です。

　　参考までに下の一覧をどうぞ。

　　snsLineThinSolid                1     細実線
　　snsLineSolid                        2     実線
　　snsLineThickSolid               3     太実線
　　snsLineThinDot                    4     細点線
　　snsLineDot                           5     点線
　　snsLineThickDot                  6     太点線
　　snsLineDoubleSolid            7     二重線
　　snsLineThinDashDot           8     細一点鎖線
　　snsLineDashDot                  9     一点鎖線
　　snsLineThinDashDotDot   10     細二点鎖線
　　snsLineDashDotDot          11 　  二点鎖線
　　 snsLineThinWave               12     細波線
　　snsLineWave                      13     波線
　　snsLineThinDoubleWave  14     二重波線
　　snsLineSlant                       15     飾り罫線

（３）３行目は線の色です。

　　ちなみにRGBは光の３原色を示しています。

　　R･･･Red(赤）, G･･･Green（緑）, B･･･Blue（青）,

　　各色の度合いを０～２５５の整数値で現し、全て０だと

　　黒、全て２５５だと白になります。

Comments

[投稿情報: kumapooh]

ここに書いてあるのは
JustSystemの三四郎のマクロです。
Excelのものではありません。