April 2006
Beginner
1114 pages
98h 16m
English
shape.IncrementRotation(Increment)
Rotates a shape.
|
Argument |
Settings |
|---|---|
|
|
The number of degrees to rotate the shape |
The following code draws and rotates a star:
Sub Rotate( )
Dim ws As Worksheet, s As Shape, i As Integer
Set ws = ActiveSheet
' Draw a star.
Set s = ws.Shapes.AddShape(msoShape5pointStar, 120, 80, 40, 40)
' Rotate it.
For i = 0 To 6
Application.Wait Now + 0.00001
s.IncrementRotation 10
Next
End SubRead now
Unlock full access