Coreldraw Macros [2025]

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

Dim sh As Shape For Each sh In ActivePage.Shapes sh.Outline.SetProperties 0.5, OutlineStyles(1) 'Sets 0.5pt outline Next sh coreldraw macros

If you use CorelDRAW daily—whether for signage, t-shirt design, packaging, or vector illustration—you know the pain of repetitive tasks. Resizing hundreds of objects, applying the same color swatch to 50 different shapes, or exporting each page of a multipage document individually. Dim rect As Shape Set rect = ActiveLayer

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