Sub joonistus1()
'
' joonistus1 Macro
' Macro recorded 12.10.2005 by RM
'

'
    ActiveSheet.Shapes.AddShape msoShapeRectangle, 105, 144, 125.25, 135#
    ActiveSheet.Shapes.AddLine 75, 96, 163.5, 168.75
    'Selection.ShapeRange.Flip msoFlipVertical
    ActiveSheet.Shapes.AddLine 165#, 96#, 268.5, 173.25
    ActiveSheet.Shapes.AddShape(msoShapeOval, 300.75, 54#, 39#,
44.25).Select
End Sub

Sub kustuta()
   Dim kujund As Shape
   For Each kujund In Sheet1.Shapes
     kujund.Delete
   Next kujund
End Sub

Sub joonistus2()
   kustuta
   Sheet1.Shapes.AddLine 100, 50, 200, 85
End Sub

Sub joonistus3()
   kustuta
   Sheet1.Shapes.AddLine Selection.Offset(0, 1).Left, _
          Selection.Top + Selection.Height / 2, _
          Selection.Offset(0, 1).Left + Selection, _
          Selection.Top + Selection.Height / 2
   'lisage iga joone otsa väike ring
   Sheet1.Shapes.AddShape msoShapeOval, _
      Selection.Offset(0, 1).Left + Selection, _
      Selection.Top, Selection.Height, Selection.Height
   
End Sub

Sub puud1()
   Dim vasak, yla, laius, korgus, puukorgus, vorakorgus, _
       tyvekorgus, puuvahe, puuvasak, maapind, puudearv, puunr
   vasak = 100
   yla = 50
   laius = 200
   korgus = 200
   puukorgus = korgus * 2 / 3
   vorakorgus = puukorgus / 2
   tyvekorgus = puukorgus - vorakorgus
   puuvahe = laius / 5
   puuvasak = vasak + puuvahe
   puudearv = 3
   maapind = yla + korgus - 10
   kustuta
   Sheet1.Shapes.AddShape msoShapeRectangle, _
     vasak, yla, laius, korgus
   For puunr = 1 To puudearv
     Sheet1.Shapes.AddLine puuvasak, maapind, puuvasak, _
         maapind - tyvekorgus
     Sheet1.Shapes.AddShape msoShapeOval, puuvasak - puuvahe / 2, _
       maapind - puukorgus, puuvahe, vorakorgus
     puuvasak = puuvasak + puuvahe
   Next puunr
End Sub

Sub puud2(puudearv As Integer)
   Dim vasak, yla, laius, korgus, puukorgus, vorakorgus, _
       tyvekorgus, puuvahe, puuvasak, maapind, puunr
   vasak = 100
   yla = 50
   laius = 200
   korgus = 200
   puukorgus = korgus * 2 / 3
   vorakorgus = puukorgus / 2
   tyvekorgus = puukorgus - vorakorgus
   puuvahe = laius / (puudearv + 1)
   puuvasak = vasak + puuvahe
   maapind = yla + korgus - 10
   kustuta
   Sheet1.Shapes.AddShape msoShapeRectangle, _
     vasak, yla, laius, korgus
   For puunr = 1 To puudearv
     Sheet1.Shapes.AddLine puuvasak, maapind, puuvasak, _
         maapind - tyvekorgus
     Sheet1.Shapes.AddShape msoShapeOval, puuvasak - puuvahe / 2, _
       maapind - puukorgus, puuvahe, vorakorgus
     puuvasak = puuvasak + puuvahe
   Next puunr
End Sub

Sub puud2katse()
   puud2 9
End Sub
Sub puud2katse2()
   puud2 Selection
End Sub