Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Applying a Color Scheme to a Slide

Sub color()     ActivePresentation.Slides.Range(Array(1, 2, 3)) _         .ColorScheme.Colors(ppBackground).RGB = RGB(0, 0, 0) End Sub