Gets the GefFillFormat for the object that is used for static filling of the object. | |
Syntax: | Set GefFillFormat = object.ForegroundFill |
Description: | This static filling capability of an object is not
exposed by the CimEdit user interface. If there is fill
animation on the object, it overrides the static filling. This
static filling can be controlled at runtime using scripting,
thereby allowing you to implement fill animation from a script
rather than using the FillAnim property. Returns Nothing if this property is not valid for the object. Example: Sub GefObject_ForegroundFill() Dim oCimObj As GefObject Dim oCimFillFmt As
GefFillFormat Set oCimObj = CimGetObject Set oCimFillFmt =
oCimObj.ForegroundFill If Not oCimFillFmt Is Nothing
Then oCimFillFmt.ForeColor.RGB
= &HBB& 'red CimGetScreen.Refresh
False Else MsgBox "The
foreground fill property does not " & _ "apply
to this object" End If End Sub |