- 在女人上面怎么成为真正的男人 1个简单易行的方法揭秘 男人必看! 帮助用户解决问题
- 将照片转化为视频让照片MV更具观赏性和情感深度 实际上,这个过程就是将照片转化为视频 视频转换器
- 视频画面上布满了各种各样的水印或LOGO 如何有效地模糊或去除这些烦人的水印呢? 视频转换器
- 视频添加多段移动马赛克 多个位置出现了移动的车牌号,想要进行遮挡却感到无从下手呢? 视频转换器
- 这款视频去噪音软件的操作流程已经介绍得很详细了 根据需要调整去噪音的强度和其他参 电脑应用
- 与大家分享如何制作时间码 在视频上动态添加“日期”和“时间”水印,如“2012-06-22 09 视频转换器
- 探讨一下视频制作中的一个关键环节——配音录制以及背景音乐的设置 视频转换器
- 一款轻便且实用的MKV字幕提取软件,它可以轻松地从MKV文件中提取出字幕、音频甚至视频 视频转换器
- 提取出原曲中的人声曲调,仅留下伴奏部分,mp3的原唱和伴唱就好像血肉相连 不能完全去掉 视频转换器
- ppt转视频转出来以后,PPT的第一页没有了,视频里的PPT是从第二页开始的 帮助中心
- 使用暴风影音播放时,视频和音频都展现得很正常。但是视频转换成mp4格式时只有声音,画面 视频转换器
ppt宏教程之如何快速批量插入图片
狸窝 复制 收藏 保存到桌面 快速找教程方案 反馈需求 社会主义核心价值观 在线客服 马上注册 升级VIP
有一个小问题想要考考大家,知道如何快速往PPT中插入100张图片甚至更多的图片吗?要是还不知道也没关系,看过本文后保证你就会了。
分享office2010下载:www.leawo.cn/space-756442-do-thread-id-32675.html
如何快速往PPT中插入100张图片,甚至更多的图片吗?既然是批量处理肯定不能依靠手工啦!利用宏编程可以快速实现!
实现目标:将100张图片分别放到100页幻灯片里。
首先准备好需要使用的图片,将其保存在同一个文件夹中,文件名是有序的数字:1.jpg,2.jpg……,100.jpg
接着,将当前PPT文件和图片们也保存在同一个文件夹中。
然后,在PPT里点击菜单“工具→宏→宏”,打开“宏”窗口,给将要编写的程序取个名。
之后鼠标点击“创建”按钮,即进入Visual Basic编辑器界面,编写代码。
Sub photos()
Dim i As Integer
For i = 2 To 100
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture i & ".jpg"
End With
Next
End Sub
解释一下上面的代码:
◆ 因为新建的PPT已经有一页幻灯片了,所以循环语句从2开始,到100。
◆ 最长的那行代码的作用是插入一页幻灯片,ppLayoutBlank 表示插入的幻灯片是空白型的。
◆ Background所在的那行代码,是将图片作为幻灯片的背景图。
上面的程序,新插入了99页幻灯片,然后为每一页幻灯片设置了背景图片,并不是真的将图片插入到幻灯片了。还有,第一张幻灯片并没有被操作到,需要手动操作。
如果要确实是将图片插入到幻灯片,那么上面的程序修改为如下:
Sub photos()
Dim i As Integer
For i = 2 To 100
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:= i & ".JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=173, Top:=129, Width:=574, Height:=481).Select
End With
Next
End Sub
注:图片尺寸最后是一样的,如果不是,那就要手动修改。
推荐阅读:
ppt转换成swf :http://www.leawo.cn/space-758990-do-thread-id-37942.html
如何提取ppt中的音乐: http://www.leawo.cn/space-756442-do-thread-id-49156.html
の⊹照片换背景(简单) 如何去掉歌曲原唱 视频转GIF图片 PPT制作高清视频⊹の
【笑话】前两天,无聊。我试着给10086发信息:“我想你了”。
没想到10086真的给回信息了:“来找我啊,死鬼!”
然后我吓得赶紧放下了爸爸的手机。
の⊹女性商务蓝白配色PPT模板 精美商务演示ppt模板 职业生涯规划ppt 3D小人成功模板⊹の