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 = cnvEnd Sub