Formatting shape color for all slides at once

Topic

New Reply

I would like to format the shape of the title and content of all my slides to a white background. To do each slide individual, I first select the header, right click, select format shape , select the color and close. To make the content white, I select the content and follow the same procedure

I would like to be able to do this for all my slides i.e select a white background for all of them at once

Your assistance in this regard will be most appreciated

Reply | Quote

Replies

You can do this with code:

Sub fixme()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
On Error Resume Next
If osld.Shapes.HasTitle Then _
osld.Shapes.Title.Fill.ForeColor.RGB = vbWhite
Next osld
End Sub

How to use

Reply | Quote

Hi John

It would be appreciated if you would amend you code so that all the slide headings and content will change to a white background. I also need the theme color to be black

Regards

Howard

Reply | Quote

Hi John

Thanks for the help, much appreciated

Reply | Quote

You’ll need to explain a little more

Do you mean all placeholders to have a white background? Or maybe Placeholders and textboxes.
Theme Color = Black – what does that mean?? (or rather what do you think it means. Maybe text is black?

In the meantime see if this helps

Sub fixme2()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then
oshp.Fill.ForeColor.RGB = vbWhite
If oshp.HasTextFrame Then oshp.TextFrame.TextRange.Font.Color = vbBlack
End If
Next oshp
Next osld
End Sub

Reply | Quote

Hi John

Thanks for the help. Code works perfectly.

Reply | Quote

Just an aside:
I wonder when you said set the placholders to white you really meant “No Fill”?

if so make this change

If oshp.Type = msoPlaceholder Then
oshp.Fill.Visible=msoFalse ‘ change here
If oshp.HasTextFrame Then oshp.TextFrame.TextRange.Font.Color = vbBlack
End If

Reply | Quote

Thanks for the info

Reply | Quote

Hi Howard,

Maybe what you’re really looking for is the Slide Master. Click View, Master, Slide Master. Making changes here will set the defaults. Manually altered slides will not be affected.

It may be a bit more complicated, I’m running Office 2010 now, and don’t recall all the steps for 2003.

Reply | Quote