Sir,
I have a octagonal shape & I give some IncrementRotation to it. Now I want to go its previous position(ie before using IncrementRotation). But I canot configure out in vba.
Need some help.
Below I give "IncrementRotation 22" but if I forget that value(22) then how can I do ?
Sub RotateShape()
Dim osld As Slide
Dim j As Integer
Dim hshp As Shape
Set osld = ActivePresentation.Slides(1)
For j = 1 To 4
Set hshp = osld.Shapes("octagon" & j)
hshp.IncrementRotation 22
Next j
End Sub