GefObject.ScaleAnim (read-only property)

Gets the GefScaleAnim for the object.
Syntax: Set GefScaleAnim = object.ScaleAnim
Description: Returns Nothing if this property is not valid for the 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