Coreldraw Macros Now

CorelDRAW uses VBA (Visual Basic for Applications) or JavaScript (on Mac) to handle automation. 🛠️ Common Uses for Macros

Dim doc As Document Set doc = ActiveDocument coreldraw macros

Open CorelDRAW, press to open the VBA Editor, insert a new Module, and paste the following code: CorelDRAW uses VBA (Visual Basic for Applications) or

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 press to open the VBA Editor