录制宏-》停止录制-》代码编辑-》进入模块-》删除所有代码-》粘贴下面代码-》运行
Sub Macro1()
'
' 宏由 Windows 用户 记录,日期: 2015-02-06
'
k = Application.ActivePresentation.Slides.Count
For i = 1 To k
Application.ActivePresentation.Slides.Item(i).Select
Application.ActivePresentation.Slides.Item(i).Shapes.AddPicture(FileName:="D:\我的图片\10607_pc.jpg", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-599, Top:=-329, Width:=1920, Height:=1200).Select
Next
End Sub
这种事情为什么不用幻灯片母版来实现?