|
円を作ることは望んでいたものができました。
ありがとうございました。
続いて、色をつけるということをしたいのですが、
したのように作ってみたら意外とできたので驚いたのですが、
もうちょっとかんたんにはならないでしょうか??
あと、255±Range や 0±Range といった値が255を超える
または0を下回った際には255、0にするというようにするには
どうしたらよいでしょうか??
ご協力お願いします。
Sub 色()
Worksheets("Sheet1").Shapes(1).Fill _
.ForeColor.RGB = RGB(Range("a1"), 255 - Range("a1"), 255 + Range("a1"))
Worksheets("Sheet1").Shapes(2).Fill _
.ForeColor.RGB = RGB(Range("b1"), 255 - Range("b1"), 255 + Range("b1"))
Worksheets("Sheet1").Shapes(3).Fill _
.ForeColor.RGB = RGB(Range("c1"), 255 - Range("c1"), 255 + Range("c1"))
Worksheets("Sheet1").Shapes(4).Fill _
.ForeColor.RGB = RGB(Range("d1"), 255 - Range("d1"), 255 + Range("d1"))
Worksheets("Sheet1").Shapes(5).Fill _
.ForeColor.RGB = RGB(Range("e1"), 255 - Range("e1"), 255 + Range("e1"))
Worksheets("Sheet1").Shapes(6).Fill _
.ForeColor.RGB = RGB(Range("f1"), 255 - Range("f1"), 255 + Range("f1"))
Worksheets("Sheet1").Shapes(7).Fill _
.ForeColor.RGB = RGB(Range("g1"), 255 - Range("g1"), 255 + Range("g1"))
Worksheets("Sheet1").Shapes(8).Fill _
.ForeColor.RGB = RGB(Range("h1"), 255 - Range("h1"), 255 + Range("h1"))
Worksheets("Sheet1").Shapes(9).Fill _
.ForeColor.RGB = RGB(Range("i1"), 255 - Range("i1"), 255 + Range("i1"))
Worksheets("Sheet1").Shapes(10).Fill _
.ForeColor.RGB = RGB(Range("j1"), 255 - Range("j1"), 255 + Range("j1"))
Worksheets("Sheet1").Shapes(11).Fill _
.ForeColor.RGB = RGB(Range("k1"), 255 - Range("k1"), 255 + Range("k1"))
Worksheets("Sheet1").Shapes(12).Fill _
.ForeColor.RGB = RGB(Range("l1"), 255 - Range("l1"), 255 + Range("l1"))
Worksheets("Sheet1").Shapes(13).Fill _
.ForeColor.RGB = RGB(Range("m1"), 255 - Range("m1"), 255 + Range("m1"))
Worksheets("Sheet1").Shapes(14).Fill _
.ForeColor.RGB = RGB(Range("n1"), 255 - Range("n1"), 255 + Range("n1"))
Worksheets("Sheet1").Shapes(15).Fill _
.ForeColor.RGB = RGB(Range("o1"), 255 - Range("o1"), 255 + Range("o1"))
Worksheets("Sheet1").Shapes(16).Fill _
.ForeColor.RGB = RGB(Range("p1"), 255 - Range("p1"), 255 + Range("p1"))
Worksheets("Sheet1").Shapes(17).Fill _
.ForeColor.RGB = RGB(Range("q1"), 255 - Range("q1"), 255 + Range("q1"))
End Sub
|
|