With ActivePresentation.Slides(1) .FollowMasterBackground = False .Background.Fill.PresetGradient Style:=ksoGradientHorizontal, _ Variant:=1, PresetGradientType:=ksoGradientLateSunsetEnd With