user_tqkbo 发表于 2016-4-12 15:44:56

感谢楼主的提供，收藏了

do93ks92 发表于 2016-4-12 15:54:10

中文版的PPT VBA帮助文件
添加幻灯片，再插入图片。
Sub llff()
   With ActivePresentation
   .Slides.Add 7, ppLayoutClipartAndText
   End With
   With ActiveWindow
   .Selection.SlideRange.Shapes.AddPicture FileName:="D:360安全浏览器下载How to get Area压力容器设计基础知识-投标报价篇幻灯片7.PNG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=720, Height:=540
   End With
End Sub

cauc429 发表于 2016-4-12 15:56:48

把这句.Slides.Add 7, ppLayoutClipartAndText，改成 .Slides.Add 2, ppLayoutClipartAndText比较好，因为一般人打开的都是第1张幻灯片，没有第2张幻灯片，如果数字过大，容易出错。
这样在第1张插入图片，增加第2张空白幻灯片。

hahaczy 发表于 2016-4-12 16:38:05

谢了..正在查找如何制作鼠标悬停动画

msmobile 发表于 2016-4-12 16:42:52

谢谢分享
页: 1 [2]
查看完整版本: [原创]PowerPoint的VBA知识介绍