Applying a standard format to existing autoshapes in PowerPoint 20

[LJ]

I have multiple pages of org charts, aka wire diagrams. They have been sent
to me by different people who have all used different formatting. (Applying
the same template format, background, etc. to all the charts is not the
problem. That's easy.) But, is there an easy way to apply a standard format
to all of the boxes without having to redraw or format the boxes on every
page separately?

 

[John Wilson]

One way that may work is to use "format painter" tool. Select a correctly
formatted shape, double click the format painter tool and then click each
shape in turn - quicker than it sounds!
--

 

[LJ]

Thanks John. That does help. I have used the format painter on text and
thought I had tried it on shapes without luck and just realized the I had
selected the text box and not the shape. D'oh.

 

[John Wilson]

You could use vba.

This code will change the fill of all diagrams to the RGB values specified.

Sub Diagramfill()

Dim oSld As Slide
Dim oShp As Shape
Dim onode As DiagramNode

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoDiagram Then
For Each onode In oShp.Diagram.Nodes
onode.Shape.Fill.ForeColor.RGB = RGB(128, 12, 12)
Next onode


End If
Next oShp
Next oSld
End Sub

--
-----------------------------------------
Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist