Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Applying a Background to One or More Slides

Sub background()     With Presentations("your.ppt").Slides(4)         .FollowMasterBackground = msoFalse         .DisplayMasterShapes = msoFalse         With .Background             .Fill.ForeColor.RGB = RGB(255, 255, 255)             .Fill.BackColor.SchemeColor = ppAccent1             .Fill.UserPicture "C:\Winter.jpg"         End With     End With End Sub