This is where step in. Far from being just a "nerdy" feature for programmers, macros are the secret weapon used by power users to automate mundane tasks, ensure brand consistency, and achieve tasks impossible with standard tools.
Sub SetOutlineTo1pt() ' This macro finds every object on the active page Dim s As Shape ' Loop through every shape in the active layer For Each s In ActivePage.Shapes ' if the shape has an outline... If s.Type = cdrCurveShape Or s.Type = cdrRectangleShape Or s.Type = cdrEllipseShape Then ' Set the outline width to 1 point (1/72 inch) s.Outline.SetProperties 1, OutlineStyles: = cdrSolidLine End If Next s ' Refresh the screen ActiveWindow.Refresh MsgBox "All outlines updated to 1pt!", vbInformation, "Macro Complete" End Sub coreldraw macros
Below is a simple macro script that searches your open document, finds every selected object, and automatically applies a uniform 1-inch width to them: This is where step in
: A favorite for laser engravers and sign makers, it automates the creation of cut lines for name tags. How to Use and Manage Macros finds every selected object
, they function like a "speed-dial" for complex or multi-step operations. Getting Started with Macros