- 187 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 21:18:21 ]
- >>184
もっと良いやり方があるかも知れないけれど
現在のコードを尊重する形で考えてみた
下記ではどうでしょう
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(Array(235, 180, 200), Array(255, 110, 80), Array(255, 0, 0))
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)(0), myIndex(i)(1), myIndex(i)(2))
Next i
End Sub
