Coreldraw Macros →

Dim rect As Shape Set rect = ActiveLayer.CreateRectangle(1, 1, 2, 2) 'x1,y1,x2,y2 rect.Fill.ApplyFountainFill , , , , , , "Black", "White"

MsgBox "Your macro finished successfully! Total shapes: " & ActivePage.Shapes.Count Printers worry about 0 pt or "hairline" strokes failing to print. This macro selects all shapes with an outline under 0.25 pt and changes them to 0.5 pt: coreldraw macros

Enter .