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 offset by the
MaxTranslation. Example: Sub MoveAnimAttrib_MaxExprValue() Dim oCimObj As GefObject Dim oCimMoveAnim As
GefMoveAnim Dim oCimMoveAnimAttrib As
GefMoveAnimAttrib Set oCimObj = CimGetObject Set oCimMoveAnim =
oCimObj.MoveAnim If Not oCimMoveAnim Is Nothing
Then Set
oCimMoveAnimAttrib = oCimMoveAnim.HorizontalAttrib If Not
oCimMoveAnimAttrib Is Nothing Then MsgBox
"The max value is " & _ oCimMoveAnimAttrib.MaxExprValue End
If End If End Sub |