Windows(1).Selection.SlideRange.Master.Background.Fill _ .PresetGradient KsoGradientDiagonalUp, 1, KsoGradientDaybreak