API Documentation > CorelDRAW > 2025-v26 > PatternCanvas > IVGPatternCanvas
PatternCanvas.PutCopy method
Puts data of another canvas
Syntax:
Sub PutCopy(ByVal PatternCanvas As PatternCanvas)
Parameters:
Name Type Description
PatternCanvas
Remarks:
The PutCopy method places the content of one pattern canvas into the active pattern canvas.
Examples:
The following VBA example creates a new pattern based on the first available fill pattern in the PatternCanvases collection. The new pattern contains a small white rectangle at its center.
Sub Test()
Dim c As New PatternCanvas
Dim x As Long, y As Long
c.PutCopy PatternCanvases(1)
x = c.Width / 2
y = c.Height / 2
c.FillArea x - 10, y - 10, x + 10, y + 10, True
With ActiveLayer.CreateRectangle(0, 0, 2, 2)
  .Fill.ApplyPatternFill cdrTwoColorPattern
  .Fill.Pattern.Canvas = c
End With 
End Sub