GefExprListAnimElement.AnimatesBlinkFill (property)

Gets and sets whether or not the animation element animates the blink fill attributes of the object.

Syntax:

Boolean = object.AnimatesBlinkFill
object.AnimatesBlinkFill = Boolean

Description:

The AnimatesBlinkFill property toggles whether or not the objects blink color is animated.

Example:

Sub ExprListAnimElement_AnimatesBlinkFill()

    Dim oCimExprListAnim As
GefExprListAnim

    Dim oCimExprListAnimElmt As
GefExprListAnimElement

    Dim oCimFillFmt As
GefFillFormat

    Set oCimExprListAnim =
CimGetObject.ExprListAnim

    Set oCimExprListAnimElmt =
oCimExprListAnim.Add

oCimExprListAnimElmt.Expression ="1"

    oCimExprListAnimElmt.AnimatesBlinkFill
= True

    Set oCimFillFmt =
oCimExprListAnimElmt.GetBlinkFill(True)

oCimFillFmt.Solid

    oCimFillFmt.ForeColor.RGB =
&HBB& 'red

CimGetScreen.Refresh False

End Sub