GefMoveAnimAttrib.MaxTranslation (property)

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.


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