VBA お絵描きしてみよう

Sub Draw()
Dim i As Integer
Dim j As Integer
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double

d = 350
For j = 1 To 5
a = Rnd
b = Rnd
c = Rnd
For i = 1 To 5

ActiveSheet.Shapes.AddShape(msoShapeOval, 82.8 + i * 100, 59.4 + j * 100, 99, 69).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(a * i * 10, b * j * 50, c * i * j * 5)

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 114.6 + i * 100, 77.4 + j * 100, 115.2 + i * 100, 100.2 + j * 100 _
).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(a * i * 10, b * j * 50, c * i * j * 5)

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 149.4 + i * 100, 76.2 + j * 100, 149.4 + i * 100, 102 + j * 100). _
Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(a * i * 10, b * j * 50, c * i * j * 5)
Next i
Next j
End Sub