GefRotateAnim.CenterXOffset (property)

Gets and sets the horizontal offset for the center of rotation in TWIPS.
Syntax: VARIANT = object.CenterXOffset
object.CenterXOffset = VARIANT
Description: This is the offset from the center of the object.

Example:

Sub GefRotateAnim_CenterXOffset()
    
    Dim oCimObj As GefObject
    Dim oCimRotateAnim As GefRotateAnim
    Dim nCenterY As Long
    Dim nCenterX As Long
    
    Set oCimObj = CimGetObject
    Set oCimRotateAnim = oCimObj.RotateAnim
    If Not oCimRotateAnim Is Nothing Then
        MsgBox "The X coordinate offset is currently " & _
            oCimRotateAnim.CenterXOffset / 20 & " points"
        nCenterX = (oCimObj.Left + oCimObj.Width) / 2
        nCenterY = (oCimObj.Top - oCimObj.Height) / 2
        MsgBox "The center of rotation is " & _
            (nCenterX + oCimRotateAnim.CenterXOffset) / 20 & _
            ", " & (nCenterY + oCimRotateAnim.CenterYOffset) / 20
    End If
    
End Sub