GefObject.GroupFormat (read-only property)

Gets the GefGroupFormat for the object.

Syntax:

Set GefGroupFormat = object.GroupFormat

Description:

This property is valid for group objects only. Returns Nothing if this property is not valid for the object.

Example:

Sub GefObject_GroupFormat()

    Dim oCimObj As GefObject
    Dim oCimGrp As GefObject

    Dim oCimGrpFmt As
GefGroupFormat

Set oCimObj = CimGetObject

    Set oCimGrp =
oCimObj.Group

    oCimGrp.Fill.ForeColor.RGB =
&HDD&

    Set oCimGrpFmt =
oCimGrp.GroupFormat

    If Not oCimGrpFmt Is Nothing
Then

        oCimGrpFmt.OverrideFill
= gefStateTrue

    End If
    CimGetScreen.Refresh False

End Sub