Outline on objects

Hi, I give you  case:

I am doing this work of converting an image to vector in quick trace mode, what I need is to have the outline to the same colour as given to all the fill objects.

 

I have been doing it one by one but there all lots of different colours, script is in order here!!!!

 

Any help appreciated.

 

Oscar

London

Zeitgeist Movement.cdr
  • Hi.

    This will work assign a hairline to every shape on the page, grouped or not, and assign it the same fill color as the shape itself.

    Hope it helps. I hate tideous jobs...lol

    -John

     

     

    Sub fillAndOutlineColorSame()
    '''''by John GDG '''''
    '''''Apr,29,2010''''''
    Dim s As Shape, sr As ShapeRange
    Dim col As New Color

    Set sr = ActivePage.FindShapes()
        For Each s In sr
            With s
                If .Fill.Type = cdrUniformFill Then
                    col.CopyAssign .Fill.UniformColor
                    .Outline.Width = 0.003
                    .Outline.Color.CopyAssign col
                End If
            End With
        Next s

    End Sub