您当时的方位:主页 >  > Powerpoint

PowerPoint快速刺进数百张图片

2014-08-16  codeforacause.net

 假如要刺进几十乃至几百张图片,而且要求每张图片刺进到每张幻灯片页面上(即有几张相片就要有几张幻灯片)你会怎么做?

  依照常用的办法点击“刺进→图片→来自文件”菜单指令,然后一个一个挑选需求的图片,或许点击“格局→布景”指令,将图片作为 PowerPoint的布景导入,这样也太浪费时间了。在这种情况下,能够凭借PowerPoint强壮的宏功用,将多步操作合并为一步,批量刺进图片。

  第一步:首要准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格局的图片,如“C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名是有序的数字。

  第二步:发动PowerPoint 2003,按下Alt+F11键翻开Visual Basic修改器窗口,点击“刺进→模块”菜单指令,在弹出的代码修改窗口中输入以下代码:

  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

     第三步:封闭Visual Basic修改器窗口,上面的模块代码会主动保存。此刻,接连按Ctrl+M键树立与图片数目持平(如:100)的多个空白幻灯片。按Alt+F8键翻开宏对话框,选中咱们上面树立的InsertPic宏,点击“运转”即可,100张图片很快就主动刺进到幻灯片中了