Sub test()
With ActivePresentation.Slides(1)
.FollowMasterBackground = False
.Background.Fill.UserPicture "C:\*****\abc.PNG"
End With
End Sub
Sub test()
With ActivePresentation.Slides(1)
.FollowMasterBackground = False
.Background.Fill.UserPicture "C:\*****\abc.PNG"
End With
End Sub
转载于:https://www.cnblogs.com/mksword/archive/2012/05/15/3934085.html