【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《ppt如何批量插入背景图片》,欢迎阅读!
Sub InsertPic()
Dim i As Integer
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture "E:\Pictures\" & i & ".png"
End With
Next
End Sub
批量插入【ppt】背景图片
2009-12-21 21:24:24| 分类: 默认分类 | 标签: |举报 |字号大中小 订阅
自己在制作一个70多页的ppt,一个个改背景太麻烦了,就从网上找又没有批量插入图片的方法,找了半天,有个介绍要不是没有代码,要不是就解释不清怎么使用。历尽千辛万苦,终于搞懂了,亲测。
在插入图像的过程中还有个一个问题,就是要求插图必须固定名称,如„1.jpg‟之类的,一张张改名更麻烦,于是就用自己学的java改名,嘿嘿,短短几分钟就搞定需要几个小时的工作了,算是学软件以
来第一次学以致用吧!
特来分享一下。
下面是ppt批量插入图片地方法:
在硬盘的任意位置(如F盘根目录)新建一个名为“Background”的文件夹,然后将需要插入到PPT课件中的背景图片复制到该文件夹,并对所有的背景图片进行重命名,图片文件名的格式为“1.jpg”、“2.jpg”、
“3.jpg”……
启动PowerPoint 2003/2007,然后单击“工具→宏→Visual Basic 编辑器”命令,打开“Visual
Basic 编辑器”窗口,然后右击该窗口左边的“VBAProject”,选择“插入→模块”命令,插入一个代码模块【稍后给出】,然后在右边的代码窗口中输入相应代码,关闭“Visual Basic编辑器”窗口,上边输入的模块代码
就会自动保存,最后单击菜单“文件→保存”命令,将PPT演示文稿保存到 "C:Pictures”目录下,文件名为
“批量插入背景图片.ppt”。
小提示:在我们提供的代码中,“ Background.Fill.UserPicture "C:Pictures" & i & ".jpg"表示插入到幻灯片中的背景图片保存在“C:Pictures”目录下,背景图片的格式为jpg,如有不同,请自行更改。
接着单击菜单“工具→自定义”命令,打开“自定义”对话框并切换到“命令”选项卡,然后选中“类别”下边列表框中的“宏”选项,这时在“命令”下边的列表框中就会出现我们刚才新添加的宏了(如图)。
如图 在如图界面中将“命
令”下边列表框中的“CharuPic”宏拖动到工具栏中的任意位置,松开鼠标后,在工具栏上就会出现一个名为“CharuPic”的按钮,右击该按钮,在出现的右键菜单中,将按钮的名称修改为“批量插入背景图片”;在“更改按钮图像”子菜单中选择自己喜欢的图片作为按钮的背景,最后关闭“自定义”对话框。 以后只需要单击工具栏上的“批量插入背景图片”按钮,稍等片刻, PPT课件中的所有幻灯片就自动完成背景图片的插入工
作了。
小提示:如果单击工具栏上的“批量插入背景图片”按钮不能完成幻灯片背景图片的插入工作时,可单击菜单“工具→宏→安全性”命令,打开“安全性”对话框并切换到“安全级”选项卡,将安全等级设置为
“中”,就可以了。
代码如下: Sub InsertPic() Dim i As Integer
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select With ActiveWindow.Selection.SlideRange .FollowMasterBackground = msoFalse
.Background.Fill.UserPicture "C:Pictures" & i & ".jpg"
End With Next End Sub
自己通过实验,发现只要ppt和你的图片文件夹在一起就没问题,但是要保证文件夹的名字正确!可
能自己试验的有偏差吧,不过我都放在桌面上也可以解决问题。
java批量修改文件名代码 【仅对此处图片为例】
public class 批量命名文件 {
/* */
private static File f; public static boolean rename() { File[] childs = f.listFiles(); for(int i=0; i
if(!childs[i].isDirectory()) {
System.out.println(childs[i].getName());
childs[i].renameTo(new File("C://pictures","C:Pictures"+i+".jpg"));//相对上文而言,可自行修改
} }
return false;}
public static void main(String args[]){//测试 f=new File("C://pictures"); //文件所存在的目录
rename();
} }
本文来源:https://www.wddqxz.cn/5385587e0b4c2e3f572763e6.html