Excel üzerindeki şekil nesnesini döndürmeye yarayan VBA kodudur.
Option Explicit
Sub SekliDondur()
Dim i As Long
ActiveSheet.Shapes("DortNoktaYildiz").Select
For i = 1 To 360
Selection.ShapeRange.IncrementRotation 10#
DoEvents
Next i
[A1].Select
End Sub