GefRotateAnim.CenterYOffset (property)

Gets and sets the vertical offset for the center of rotation in TWIPS.

Syntax:

VARIANT = object.CenterYOffset
object.CenterYOffset = VARIANT

Description:

This is the offset from the center of the object.

Example:

Sub GefRotateAnim_CenterYOffset()

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