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 |