Applying a Background to One or More Slides : PowerPoint Format « PowerPoint « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. PowerPoint
  3. PowerPoint Format

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








Related examples in the same category

1.Check font size
2.PowerPoint format ppSaveAsPresentation
3.Applying a Color Scheme to a Slide
4.Displaying or Hiding a Header or Footer Object
5.Setting the Text in a Header or Footer
6.Setting the Format for Date and Time Headers and Footers
7.Standardizing All the Headers and Footers in a Presentation