Hi all. Is there a way to fix these cheks so you can avoid the confirmation button?
I mean a way to configure copy properties of line color and fill only once and avoid the confirmation step any time I want to copy these properties.On repetitive task it means a lot of cliks.
Thanks in advance.
You can try to use Attributes Eyedropper tool
You could try using a macro. This one copies the fill, outline color and outline pen properties from the last-selected object in the selection to the other objects in the selection
Dim sr As ShapeRange
Dim sToCopyFrom As Shape
If Not ActiveDocument Is Nothing Then
Set sr = ActiveSelectionRange
If sr.Count > 1 Then
Set sToCopyFrom = sr.FirstShape
sr.CopyPropertiesFrom sToCopyFrom, cdrCopyFill
sr.CopyPropertiesFrom sToCopyFrom, cdrCopyOutlineColor
sr.CopyPropertiesFrom sToCopyFrom, cdrCopyOutlinePen
MsgBox "Two or more objects must be selected.", vbExclamation, "Copy Fill and Outline"
MsgBox "No document is active.", vbExclamation, "Copy Fill and Outline"
Thanks Mek. This is ok if you have few shapes,but if you have 140 shapes selected (Select same 3.0 ,select all similar i.e) it doesn't work. It try to change attributes one by one and the result is worst than the previous approach.
hmalleret said:This is ok if you have few shapes,but if you have 140 shapes selected (Select same 3.0 ,select all similar i.e) it doesn't work. It try to change attributes one by one and the result is worst than the previous approach.
For that sort of workflow, you could try the macro I posted.
After selecting the 140 shapes, you would (1) add the "copy from" shape to the selection and (2) run the macro.
I was wondering about a built-in default operation for doing this...
See GIF below...basically ;