How to convert ALL outlines to objects.

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 s
      End Sub

       

      ~John