Sub background() With ActivePresentation.HandoutMaster.Background .Fill.ForeColor.RGB = RGB(255, 255, 255) .Fill.BackColor.SchemeColor = ppAccent1 .Fill.UserPicture "d:\n.jpg" End WithEnd Sub