假如有100张图片,要批量插入到PPT里面,每张图片一页PPT,你会如何处理呢? 传统方法:新建一页ppt,然后插入一张图片。如此重复操作,累死你! 下面教你两招,都可以实现批量插入图片! 方法1: 1、点击“插入菜单” 2、选择“图像”组 3、点击“新建相册” 4、选择好文件的路径,进入100张图片所在的目录,按CTRL+A全选图片 5、点插入创建 搞定! 方法2: 1、打开PPT 2、按下alt+F11,打开VB编辑窗口 3、点击“插入-模块” 4、在弹出窗口输入下面的代码: SubInsertPic() DimiAsInteger Fori=1ToActivePresentation.Slides.Count ActivePresentation.Slides(i).Select WithActiveWindow.Selection.SlideRange .FollowMasterBackground=msoFalse .Background.Fill.UserPicture'C:Pictures'&i&'.jpg' EndWith Next EndSub ; 5、关闭窗口,在PPT里面建立100张空白页面(快捷键CTRL+M) 6、按下alt+F8,打开宏对话框,选中我们刚才建立的宏,点击“运行” 搞定! 值得注意的是,代码里面的路径要修改为你保存图片的路径。 |
|