GefScaleAnim (object)

Represents the attributes of scale animation on an object.

Description:

Represents the attributes of scale animation on an object.

Example:

Sub GefObject_ScaleAnim()

    Dim oCimObj As GefObject
    Set oCimObj = CimGetObject

    Dim oCimScaleAnim As
GefScaleAnim

    Set oCimScaleAnim =
oCimObj.ScaleAnim

    If Not oCimScaleAnim Is Nothing
Then

        If
oCimScaleAnim.HorizontalAttrib.Expression <> "" Then

            MsgBox
"The horizontal scale animation's expression " & _

                "is
" & """" & oCimScaleAnim.HorizontalAttrib.Expression &
""""

        End
If

        If
oCimScaleAnim.VerticalAttrib.Expression <> "" Then

            MsgBox
"The vertical scale animation's expression " & _

                "is
" & """" & oCimScaleAnim.VerticalAttrib.Expression &
""""

        End
If

End If

End Sub

Properties:

Application , HorizontalAttrib , Parent , VerticalAttrib

Methods: