Sub BrokenExport() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrTextShape Then s.Fill.UniformColor.RGBAssign 255, 0, 0 End If Next s ' Crash on undo or if shape deleted inside loop End Sub
If you share macros between versions, use conditional compilation: coreldraw macros fixed
If the Visual Basic for Applications (VBA) feature was skipped during the CorelDRAW installation, no macros will run. Sub BrokenExport() Dim s As Shape For Each s In ActivePage
The following remediation steps were performed: coreldraw macros fixed