Application.PatternCanvases

Property PatternCanvases As PatternCanvases

The PatternCanvases property returns the collection of available PatternCanvas objects (two-color pattern fills).

The PatternCanvases property returns a read-only value.

The following code example applies a predefined pattern fill, overlaid with a checkerboard pattern, to an ellipse.

Sub CanvasPattern() 
 Dim s As Shape 
 Dim pf As PatternFill 
 Dim cnv As New PatternCanvas 
 cnv.PutCopy PatternCanvases(2) 
 Set s = ActiveLayer.CreateEllipse(8, 7, 3, 4) 
 s.Fill.ApplyNoFill 
 Set pf = s.Fill.ApplyPatternFill(cdrTwoColorPattern, , , 
CreateColorEx(5005, 255, 0, 0), _ 
 CreateColorEx(5005, 255, 255, 0)) 
 pf.Canvas = cnv 
End Sub