| Gets the fill format to be applied if this element is used. | |
| Syntax: | Set GefFillFormat = object.GetFill ( Create ) |
| Parameters: |
Optional Create As Boolean
-
|
| Description: | The format is only applied if the
AnimatesFill property is true. Example: Sub ExprListAnimElement_GetFill() Dim oCimExprListAnim As
GefExprListAnim Dim oCimExprListAnimElmt As
GefExprListAnimElement Dim oCimFillFmt As
GefFillFormat Set oCimExprListAnim =
CimGetObject.ExprListAnim Set oCimExprListAnimElmt =
oCimExprListAnim.Add oCimExprListAnimElmt.Expression ="1" oCimExprListAnimElmt.AnimatesFill =
True Set oCimFillFmt =
oCimExprListAnimElmt.GetFill(True) oCimFillFmt.Solid oCimFillFmt.ForeColor.RGB =
&HBB& 'red CimGetScreen.Refresh False End Sub |