Excel VBA質問スレ Part6

Excel VBA質問スレ Part6 at TECH

306:303
08/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 低脳って事で、
俺はおまいが正しいと思うよ

次ページ

続きを表示

1を表示