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.


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.ForeColor.RGB = &HBB& 'red
    CimGetScreen.Refresh False
End Sub