GefObject.TransparencyAnim (read-only property)

Gets the Transparent Animation for the object.
Syntax: Set GefTransparencyAnim = object.TransparencyAnim
Description: The GefTransparencyAnim object represents the attributes of Transparency animation on an object.


Sub GefObject_TransparencyAnim()
    Dim oCimObj As GefObject
    Dim oCimTransparencyAnim As GefTransparencyAnim
    Set oCimObj = CimGetObject
    Set oCimTransparencyAnim = oCimObj.TransparencyAnim
    If ooCimTransparencyAnim Is Nothing Then
        MsgBox "This object does not support transparent animation"
        MsgBox "This object does support transparent animation"
    End If
End Sub