Gets and sets the maximum value used in expression based animations. | |
Syntax: | VARIANT =
object.MaxExprValue object.MaxExprValue = VARIANT |
Description: | In expression based animations, when the
expression reaches this maximum value, the object is rotated by the
MaxAngle. Example: Sub GefRotateAnim_MaxExprValue() Dim oCimObj As GefObject Dim oCimRotateAnim As
GefRotateAnim Set oCimObj = CimGetObject Set oCimRotateAnim =
oCimObj.RotateAnim If Not oCimRotateAnim Is Nothing
Then MsgBox "The
max expression value is " & _ oCimRotateAnim.MaxExprValue End If End Sub |