Coreldraw Macros May 2026

Automation isn't "cheating." It's freeing your brain to focus on creativity, not clicking.

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

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