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.


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