[原创]PowerPoint的VBA知识介绍

user_tqkbo

感谢楼主的提供，收藏了

do93ks92

中文版的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

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

hahaczy

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

msmobile

谢谢分享