Macros: Coreldraw

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

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

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 Dim sh As Shape For Each sh In 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. Resizing hundreds of objects, applying the same color

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

Enter .

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

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 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

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.

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

Enter .