|
こんにちは。
一例です。
新規ブックの標準モジュールに
'============================================
Sub Mk_uzu()
Dim rng As Range
Dim rs As Double
Dim x As Double
Dim y As Double
Dim z As Double
Dim cnt As Long
Dim idx As Double
Set rng = Range("g20")
rs = 200
z = 0
cnt = 1
x = rng.Left: y = rng.Top
idx = 0.15
With rng.Parent
With .Rectangles.Add(x, y, 15, 15)
.Text = cnt
.Font.Size = 7
End With
cnt = cnt + 1
Do Until z > rs
With .Rectangles.Add(x + z * Cos(idx), y + z * Sin(idx), 15, 15)
.Text = cnt
.Font.Size = 7
End With
cnt = cnt + 1
z = z + 1.5
idx = idx + 0.2
Loop
End With
End Sub
上記のMk_uzuを実行してみてください。
後は、間隔を工夫してください。
|
|