I have a .cdr in the FAQ in the list of files that can be attached to forum posts, but when I upload it, it shows Error in red.
Thanks for your perfect answer Ronny Axelsson!
In the meantime before Corel fixes this bug (if ever), I pose these two questions seeking for your expert guidance:
1. Is there an automated way of identifying these offending objects or the only way would be to painstakingly search for them manually?
2. If it's a multipage document how would you get around this problem? Supposing there are multiple outlines with several different negative widths?
The source may be a resized outline with scale turned on.
David Milisock said:The source may be a resized outline with scale turned on.
I was thinking along the same lines, but it shouldn't be possible anyway, it should stop at "0", or rather stop at the thinnest line possible.
wilkans68 said:1. Is there an automated way of identifying these offending objects or the only way would be to painstakingly search for them manually?
macro fix negative width to Hairline on ActivePage (in Group - YES, and NO in PowerClip)
Sub FindMin()
ActiveDocument.Unit = cdrMillimeter
ActiveDocument.ActivePage.Shapes.FindShapes(Query:="@outline.width<{0 mm}").SetOutlineProperties 0.076
End Sub
wilkans68 said:If it's a multipage document
By the way, colleagues noticed that the actual width of the outline is equal to what is shown, but without the minus. Those. -2mm is actually equal to 2mm.In this regard, for a multi-page document, we find negative values of the contour thickness and change them to positive ones
Sub FndMin()Dim wid As Double, s As Shape, srMin As New ShapeRange, p As PageActiveDocument.Unit = cdrMillimeterFor Each p In ActiveDocument.Pagesp.ActivatesrMin.RemoveAllSet srMin = ActiveDocument.ActivePage.Shapes.FindShapes(Query:="@outline.width<{0 mm}")'MsgBox srMin.CountFor Each s In srMinwid = s.Outline.Widths.Outline.SetProperties -widNext sNext pEnd Sub