天下网吧 >> 网吧天地 >> 网吧技术 >> 网吧软件 >> 正文

PPT实战之 如何快速批量插入图片

2010-7-7泡泡网陈涛
div id="ArticleCnt">

  微软Office办公软件作 为职场人士必须掌控的技能之一,对于不少朋友来说都是应用自如。新一代Office 2010的闪亮登场给大家带来了众多新颖又强大的功能,不仅能帮助Office用户更轻松地完成工作,也能更容易的实现自己的创意,其乐无穷。Word、 Excel、PPT等功能对于大多Office用户就算不是精通也至少是游刃有余,但有一个小问题想要考考大家,知道如何快速往PPT中插入100张图片 甚至更多的图片吗?呵呵要是还不知道也没关系,看过本文后保证你就会了。

  既然是批量处理肯定不能依靠手工啦!而我们要调用的是微软VB中的宏功能,利用宏可以更为高效的解决一些重复性劳动问题。不就是往PPT中插入大批量的图片吗?我们甚至可以将每张图片插入到PPT的每一页中。详细做法如下:

  首先准备好需要使用的图片,将其保存在同一个文件夹中,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,图片名分别为 “C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名都是有序的数字排列,然后启动微软Office中的PowerPoint软件。 

PPT实战技巧之 如何快速批量插入图片

  在PPT用户窗口中按下热键“Alt+F11”直接打开Visual Basic编辑器,你可能会担心自己并不会VB编程啊,打开了这个编辑器又有多大用处呢?别着急,按照下面的步骤来操作,在VB编辑器窗口中找到“插入”功能菜单,然后选择“模块”命令。 

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

写完这段代码后然后就可以关闭VB编辑器窗口了,代码会自动保存,此时在PPT编辑窗口中使用快捷键“Ctrl+M”新建与之前Pictures文件夹中 图片数量相等的空白幻灯片,如果文件夹中有100张图片,你就建立100张空白幻灯片,然后关键的时候到啦!请你按下“Alt+F8”快捷键,打开宏对话 框,选择刚刚建立的宏命令,点击“运行”即可,现在你就可以坐在电脑旁慢慢喝茶等着它自动生成吧!

本文来源:泡泡网 作者:陈涛

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。文章是出于传递更多信息之目的。若有来源标注错误或侵犯了您的合法权益,请作者持权属证明与本网联系,我们将及时更正、删除,谢谢。 Email:support@txwb.com,系统开号,技术支持,服务联系微信:_WX_1_本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧·网吧天下
  • 本周热门
  • 本月热门
  • 阅读排行