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