v 您现在的位置: 兴发娱乐xf187  >> 学习频道 >> Powerpoint >> 正文
 
 

兴发娱乐xf187 -PPT如何快速批量插入图片

作者:佚名    文章来源:网络    点击数:117    更新时间:2019-3-29

如何快速往PPT中插入100张图片,甚至更多的图片吗?既然是批量处理肯定不能依靠手工啦!利用宏编程可以快速实现!

实现目标:将100张图片分别放到100页幻灯片里。

首先准备好需要使用的图片,将其保存在同一个文件夹中,文件名是有序的数字:1.jpg,2.jpg……,100.jpg

接着,将当前PPT文件和图片们也保存在同一个文件夹中。

然后,在PPT里点击菜单“工具→宏→宏”,打开“宏”窗口,给将要编写的程序取个名。

PPT之如何快速批量插入图片 - wangpfsir - wangpfsir的博客

之后鼠标点击“创建”按钮,即进入Visual Basic编辑器界面,编写代码。

PPT之如何快速批量插入图片 - wangpfsir - wangpfsir的博客

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

注:图片尺寸最后是一样的,如果不是,那就要手动修改。


文章录入:yiming    责任编辑:yimingming 
  • 上一个文章:

  • 下一个文章:
  •  相关专题链接文章
    将一个文件夹内所有文件的名称清单复制到word文
    在Word2007的表格的奇偶行实现交错着色教程
    在Word 2007中如何轻松输入各具个性的短横线奇偶
    word文件许可权错误的解决办法
    Word2007通过绘制表格进行插入
    word2010怎样在Word同时打开多个文档
      友情链接
    点击申请点击申请点击申请点击申请点击申请点击申请点击申请

    © 2003-2010 www.bruinlgc.com All Rights Reserved 版权所有 兴发娱乐xf187 鲁ICP备05049557号

    地址:山东淄博张店华光路52号广电大厦 邮编:255000 | Tel:0533-3183657

    非法信息网上报警