The Canvas property returns a PatternCanvas object that manipulates two-color bitmap patterns.
Examples:
The following VBA example creates a new 16 × 16 checkerboard pattern and applies it to a rectangle.
Sub Test()
Dim c As New PatternCanvas
c.Data = "%%['$aH,&A5&0C"
With ActiveLayer.CreateRectangle(0, 0, 3, 3)
.Fill.ApplyPatternFill cdrTwoColorPattern
.Fill.Pattern.Canvas = c
End With
End Sub