哪位大神帮忙编一个给所有幻灯片同时插入同一张图片的宏命令?是否可以实现?

2025-05-14 15:30:15
推荐回答(2个)
回答1:

录制宏-》停止录制-》代码编辑-》进入模块-》删除所有代码-》粘贴下面代码-》运行
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

回答2:

这种事情为什么不用幻灯片母版来实现?