Dim sh As Shape For Each sh In ActivePage.Shapes sh.Outline.SetProperties 0.5, OutlineStyles(1) 'Sets 0.5pt outline Next sh
Automation isn't "cheating." It's freeing your brain to focus on creativity, not clicking. coreldraw macros
Enter .
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: Dim sh As Shape For Each sh In ActivePage
Macros are the hidden productivity engine of CorelDRAW. They are small scripts or programs that run inside CorelDRAW to automate tedious, repetitive tasks. Learning to use (or write) macros can easily save you 10–20 hours per week, turning complex 10-minute jobs into single-click operations. Total shapes: " & ActivePage
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 doc As Document Set doc = ActiveDocument Dim s As Shape For Each s In ActiveSelection.Shapes s.Fill.UniformColor.RGBAssign 255, 0, 0 'Turns selection red Next s