PowerPoint用VBA添加背景图片
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