Тарас, вообще-то принято отписываться в темах, которые создаете. Иначе Вам просто перестанут отвечать. Попробуйте одним макросом(меняйте z, k0, dn на любые значения):
Sub ArcAroundMassiveClose()
Dim i As Integer, k0 As Double, dn As Double, da As Double
Dim x0 As Double, y0 As Double, z As Double, R As Double
Const pi = 3.14159265358979
x0 = 300: y0 = 300: R = 100: z = 10: k0 = 16: dn = 16: da = 1
For i = k0 To 360 Step dn
x1 = x0 + R * Cos(i * pi / 180): y1 = y0 - R * Sin(i * pi / 180) - z
ActiveSheet.Shapes.AddShape(msoShapeArc, x1, y1, z, z).Select
Selection.Name = "arcr_" & i & "_" & dn & "_" & da
With Selection.ShapeRange.Adjustments
.Item(1) = 90 + i
.Item(2) = 90 + da + i
End With
Next i
End Sub

Так я Вас еще в первом ответе(в первой теме) отсылал в Автокад. Экс НЕ чертежная программа. Хотя может:-)