Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. 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