Gets the GefVisibililtyAnim | |
Syntax: | Set GefVisibilityAnim = object.VisibilityAnim |
Description: | Returns Nothing if this property is not
valid for the object. Example: Sub GefObject_VisibilityAnim() Dim oCimObj As GefObject Dim oCimVisAnim As
GefVisibilityAnim Dim strExp As String Set oCimObj = CimGetObject Set oCimVisAnim =
oCimObj.VisibilityAnim If Not oCimVisAnim Is Nothing
Then strExp =
oCimVisAnim.Expression If strExp
<> "" Then MsgBox
"The visibility animation's " & _ "expression
is " & """" & strExp & """" Else MsgBox
"This object does not have a " & _ "visibility
animation" End
If End If End Sub |