I often need to convert all outlines to objects in a design before I send it out or when I create a flash base for screen printing. I know how to convert and outline to an object, but my question is:
How do i convert ALL outlines to objects at the same time? Is there a function I'm missing or possibly a macro? Also, I don't want to have to select every outline myself. I'm already doing that and ctrl/shift/Q. Also, If I'm forced/limited to doing it myself manually, there's always the chance that I miss one. I cannot believe that this isn't a native function.
Thanks Guys!
Scott,
as I am not familiar with macros I would use Find and replace object (CTRL+F) – outline – find all with any outline and then use CTRL+SHIFT+Q.
Mek
Hi.
If you want to do it with a macro this should work.
Sub ConvertOutlinesToObjects() Dim p As Page Dim s As Shape, sr As ShapeRange If ActiveSelection.Shapes.count = 0 Then Set sr = ActivePage.Shapes.FindShapes Else Set sr = ActiveSelection.Shapes.FindShapes End If For Each s In sr If s.IsSimpleShape Then If s.Outline.Width > 0 Then s.Outline.ConvertToObject End If End If Next sEnd Sub
~John
Thanks so much John! It works great!