Change objects Outline to another objects Fill

Picktool
10 months ago

Is there a simple vba script that will change a selected object/text Outline to another objects Fill?

So if I select a target object, whether or not it has an outline
i'd like to use a shortcut key to select a source object w/ a desired fill color

Acting like the Tools > Customization > Fill and Outline > Copy Fill properties
I assign Ctrl+Shft+A as shortcut key, I'd click an object run the command and cursor turns to a diff arrow
for me to select another object & it fills the same color, works great.

Is this possible for the outline?
Just something simple and to avoid extra stepped dialogs or to purchase excess need-nots.

See below:

Thanks all

Parents
No Data
Reply
  • 0 10 months ago

    This can be done with a simple macro (see below)
    To achieve the desired result, first select all the shapes for which you want to change the color of the outline, then select (with Shift) the shape with the color sample and run the FillColorForOutlines macro

    Note that the template fill type must be UniformFill
    Regards.
    Taras

    Sub FillColorForOutlines()
         Dim SR As ShapeRange, c As Color

         Set SR = ActiveSelectionRange
         Set c = SR.Shapes.First.Fill.UniformColor
         SR.SetOutlineProperties Color:=c
    End Sub

Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.