Gets the GefExprListAnim for the object. | |
Syntax: | Set GefExprListAnim = object.ExprListAnim |
Description: | Returns Nothing if this property is not
valid for the object. Example: Sub GefObject_ExprListAnim() Dim oCimObj As GefObject Dim oCimExprLstAnim As
GefExprListAnim Set oCimObj = CimGetObject Set oCimExprLstAnim =
oCimObj.ExprListAnim If oCimExprLstAnim Is Nothing
Then MsgBox "This
object does not support expression " & _ "lists
animations" Else MsgBox "This
object does support expression " & _ "lists
animations" End If End Sub |