本示例将当前演示文稿中第一张幻灯片的背景设为预设的底纹。

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