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 |