PatternCanvas.Data

Property Data As String

The Data property returns or sets the string which represents the bitmap pattern. The pattern is encoded with a special algorithm to allow the binary bitmap data to be represented in a text form.

The following code example creates a new checkerboard pattern that is 16 ?16 pixels 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