Gets and sets the movement offset in TWIPS. | |
Syntax: | VARIANT =
object.MaxTranslation object.MaxTranslation = VARIANT |
Description: | When the expression is at MaxValue, that is
the movement offset being used. Example: Sub MoveAnimAttrib_MaxTranslation() 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 object will move upto " & _ oCimMoveAnimAttrib.MaxTranslation
/ 20 & _ " points away" End
If End If End Sub |