Gets and sets minimum angle of rotation in radians. | |
Syntax: | VARIANT =
object.MinAngle object.MinAngle = VARIANT |
Description: | This is the angle the object will be rotated when
the expression is at MinExprValue Example: Sub GefRotateAnim_MinAngle() Dim oCimObj As GefObject Dim oCimRotateAnim As
GefRotateAnim Set oCimObj = CimGetObject Set oCimRotateAnim =
oCimObj.RotateAnim If Not oCimRotateAnim Is Nothing
Then MsgBox "The
minimum angle for the rotation is " & _ oCimRotateAnim.MinAngle
& " radians" End If End Sub |