Coreldraw Macros Better [exclusive] -

Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrCurveShape Then s.Outline.Width = 2 End If Next s Result: It finds every curve on the page regardless of selection and updates them instantly.

Sub AddCutContour() On Error GoTo ErrorHandler If ActiveDocument Is Nothing Then MsgBox "Please open a document first.", vbExclamation Exit Sub End If coreldraw macros better

Application.Optimization = False Optimization = False ActiveWindow.Refresh Dim s As Shape For Each s In ActivePage

' -- Proceed with macro logic -- ActiveShape.CreateOutline (0.02) ActiveShape.Outline.Color.CMYKAssign 0, 0, 0, 100 Exit Sub ErrorHandler: MsgBox "Could not add contour. Is the shape valid?", vbCritical End Sub vbCritical End Sub