Shape.RotationAngle

Property RotationAngle As Double

Member of Shape

The RotationAngle property returns or sets the angle at which the shape was rotated. Assigning a value to this properties rotates the shape so that its resulting rotation angle equals the specified value.

The following code example removes any rotation from the shapes on a page:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.RotationAngle <> 0 Then 
   s.RotationAngle = 0 
  End If 
 Next s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.