GefFillFormat.Patterned (method)

Sets the fill style to specified pattern.
Syntax: object.Patterned Pattern
Parameters:
Pattern As GefPatternEnum -
Description: Sets the Type of the fill to GefFillPattern.

Example:

Sub FillFormat_Patterned()
    
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.Fill
    
    oCimFillFmt.Patterned gefPatternDarkDiamond
    CimGetScreen.Refresh False
    
End Sub