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 |