Replacing backgrounds

JohnWilson · #1 02-13-2016, 09:17 AM

This code should add a black background

Code:

Sub blackBack()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
osld.FollowMasterBackground = False
osld.Background.Fill.Solid
osld.Background.Fill.ForeColor.RGB = vbBlack
Next osld
End Sub

Tod · #2 02-16-2016, 08:40 AM

I tried your script and either I'm not doing it right or something else.

I saved the ppt to a pptm format and then opened it and went to macros and created and pasted in your script.. I then hit run, but nothing seems to happen.... what am I missing... thanks

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Colour code mail merge header table cell backgrounds	ScotsMaverick	Mail Merge	25	11-04-2021 02:07 PM
Convert a word document in an empty one with backgrounds	Esgrimidor	Word VBA	11	12-03-2012 03:44 PM
How to "print" backgrounds to PDF	randy.pare	Drawing and Graphics	0	12-09-2010 12:05 PM
Code for Changing Cell Backgrounds	leroytrolley	Excel	2	12-05-2008 02:05 AM
Question concerning Backgrounds and fading.	NYCorBUST	PowerPoint	2	12-29-2005 09:05 AM