| 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. Example: 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" Else MsgBox "This
object does support transparent animation" End If End Sub |