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
Sub copy_properties_fill_and_outline() 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.Remove sr.IndexOf(sToCopyFrom) sr.CopyPropertiesFrom sToCopyFrom, cdrCopyFill sr.CopyPropertiesFrom sToCopyFrom, cdrCopyOutlineColor sr.CopyPropertiesFrom sToCopyFrom, cdrCopyOutlinePen Else MsgBox "Two or more objects must be selected.", vbExclamation, "Copy Fill and Outline" End If Else MsgBox "No document is active.", vbExclamation, "Copy Fill and Outline" End If End Sub
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.
Hi,
I was wondering about a built-in default operation for doing this...
See GIF below...basically ;