a macro to change backgound

[bertpu]

Hello,
I want to make a macro to change the background of all the slides in a ppt
file to a specific color. Can I? How to write the code?
Thanks.

 

[John Wilson]

Do you have a special reason for using code? This is easily done in the GUI
or on the master.


--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

 

[bertpu]

Yes.For some reason, I must do it using macro to make my work more efficient.

 

[vindys]

ActivePresentation.SlideMaster.Background.Fill.ForeColor.RGB = 13995605

this line will make the master slide background to particular color and
resulting all the slides

 

[John Wilson]

Try this

Sub bckcol()
Dim opres As Presentation
Dim osld As Slide
Set opres = ActivePresentation
With opres.SlideMaster.Background.Fill
..Solid
..ForeColor.RGB = RGB(100, 100, 0) 'RG&B values
End With
For Each osld In opres.Slides
osld.FollowMasterBackground = msoTrue
Next osld
End Sub
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk