|
こんばんは。
>しかしながら
>Sub test2()
>With Range("A15:B15").Interior
>If Application.Dialogs(xlDialogEditColor).Show(2) Then
> .ColorIndex = 2 '~~~~
>End If '~~~~
>End Sub
>
>~~~~の部分を1から2に変更するとtest1に影響を及ぼさない(絡まない)
>単独の動作=つまりA15:B15に色指定が出来ます。ですから
>このコードの中のColorIndex=2は色指定の意味では無いと
>判断したらよいのでしょうか。
横入りさんの説明で十分だと思いますが、ちょっとだけ。
パレットって、実際には
store.shopping.yahoo.co.jp/inobun/013825.html#
↑こんな道具ですよね!!
この写真のパレットは、12色の色を一度に置けるのですよね?
Excelは、56色置けます。Colorindexは、この色の置く場所を示す番号です。
Application.Dialogs(xlDialogEditColor).Show(2)
は、パレット番号2の色を現在の色から、自由に変更してください
というメソッドです。
ですから、特別な色を作成したいなら、現在パレット上にあるどれか色と交換する
ことになります。
Show(n)やColorindex=n、このnは、色のある場所を示す識別番号です。
いかがでしょうか?
|
|