"rotseduurid" - 1 õppematerjal

VBA - Graafika

Shapes(nimi) ja Range(nimi). Neid kasutasin nähtavuse ja lahtrite jaoks. uurid Function keerle() Dim i, paike As Shape uurid olid jaotatud üheks suurejs ja Set paike = Shapes("paike") - päike vastab kujundile ateks. Väiksemad olid põhiliselt For i = 1 To Range("kord").Value - korratakse tegevust nii kaua rotseduurid nt. erinevad seda ütleb lahter kord ikkused. paike.IncrementRotation 5 - kujund keerleb 5 ühikut paus 0.1 - paus a võimalused Next i - järgmine ring End Function l on võimalus valida kui pikk on nö emisperioon ehk kui kaua keerleb päike enne kui animatsioon peale hakkab.