Построить спираль на листе Excel

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 10.04.2013 (User)
'
 
'
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 288#, 82.5)
        .AddNodes msoSegmentCurve, msoEditingAuto, 288.75, 146.25
        .AddNodes msoSegmentCurve, msoEditingAuto, 219#, 153.75
        .AddNodes msoSegmentCurve, msoEditingAuto, 195#, 93#
        .AddNodes msoSegmentCurve, msoEditingAuto, 234.75, 49.5
        .AddNodes msoSegmentCurve, msoEditingAuto, 323.25, 53.25
        .AddNodes msoSegmentCurve, msoEditingAuto, 353.25, 122.25
        .AddNodes msoSegmentCurve, msoEditingAuto, 321#, 186#
        .AddNodes msoSegmentCurve, msoEditingAuto, 222.75, 203.25
        .AddNodes msoSegmentCurve, msoEditingAuto, 150.75, 149.25
        .AddNodes msoSegmentCurve, msoEditingAuto, 158.25, 54.75
        .AddNodes msoSegmentCurve, msoEditingAuto, 228.75, 16.5
        .ConvertToShape.Select
    End With
End Sub

'Ïîëüçîâàòåëüñêèé òèï, ïðåäñòàâëÿþùèé òî÷êó â äåêàðòîâîé ñèñòåìå êîîðäèíàò.
Type MyPoint
   x As Double
   y As Double
End Type
'Ïðîöåäóðà îñóùåñòâëÿåò ïåðåâîä èç ïîëÿðíîé ñèñòåìû êîîðäèíàò â äåêàðòîâó ñèñòåìó.
Sub PolarToDecart(ByRef p As MyPoint, ByVal r As Double, ByVal phi As Double)
   p.x = r * Cos(phi)
   p.y = r * Sin(phi)
End Sub
'Ïðîöåäóðà âîçâðàùàåò ìàññèâ òî÷åê ñïèðàëè.
Sub GetArchimedePoints(ByRef p() As MyPoint, ByVal k As Double, _
ByVal NumOfPoints As Long, Optional ByVal MaxRadius As Single = 256, _
Optional ByVal StartX As Single = 320, Optional ByVal StartY As Single = 320)
   Dim i As Long, h As Double, r As Double, phi As Double
   ReDim p(NumOfPoints - 1) As MyPoint
   p(0).x = StartX
   p(0).y = StartY
   h = CDbl(MaxRadius) / (NumOfPoints - 1) 'Øàã êðèâîé.
   For i = 1 To NumOfPoints - 1
      r = h * i   'Ðàññòîÿíèå îò öåíòðà ïîëÿðíîé ñèñòåìû êîîðäèíàò.
      phi = r / k 'Óðàâíåíèå ñïèðàëè Àðõèìåäà: r = k * phi, ñëåäîâàòåëüíî, phi = r / k.
      PolarToDecart p(i), r, phi 'Ïîëó÷àåì êîîðäèíàòû òî÷åê ñïèðàëè â äåêàðòîâîé ñèñòåìå.
      p(i).x = p(i).x + StartX
      p(i).y = p(i).y + StartY
   Next i
End Sub
'Ïðîöåäóðà äëÿ ðèñîâàíèÿ ñïèðàëè.
Sub DrawArchimede()
   'Ñïèðàëü áóäåì ñòðîèòü ïî 100 òî÷êàì.
   Const N_OF_POINTS_USED = 100
   'Îïðåäåëÿåì ïåðåìåííûå öèêëà è ìàññèâ òî÷åê êðèâîé.
   Dim i As Long, p() As MyPoint
   'Çàëèâàåì ëèñò áåëûì öâåòîì.
   Cells.Interior.Color = vbWhite
   'Óáèðàåì ñ ëèñòà óæå ñóùåñòâóþùèå ôèãóðû.
   With ActiveSheet.Shapes
      i = .Count
      While i > 0
         .Item(i).Delete
         i = i - 1
      Wend
   End With
   'Çàïîëíÿåì ìàññèâ.
   GetArchimedePoints p(), 10, N_OF_POINTS_USED
   'Ðèñóåì ñïèðàëü.
   With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, CSng(p(0).x), CSng(p(0).y))
      For i = 1 To N_OF_POINTS_USED - 1
         .AddNodes msoSegmentCurve, msoEditingAuto, CSng(p(i).x), CSng(p(i).y)
      Next i
      .ConvertToShape
   End With
End Sub