- 306 名前：303 mailto:sage [2008/04/15(火) 05:05:36 ]
- >>305
すまん、完全に俺の早とちりだった
Dim i As Long
For i = 0 To 255
With Cells(i + 1, 2)
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height)
.Fill.ForeColor.RGB = RGB(i, 0, 0)
Cells(i + 1, 1).Value = .Fill.ForeColor.RGB
End With
End With
Next i
図形は好きな色使えるな
SchemeColorの色数も81色だし（重複はあるが）
結論として、指摘した人が俺と同じ早とちり OR 知ったか OR 低脳って事で、
俺はおまいが正しいと思うよ
