请教图片复制和粘贴的问题

danq 发表于: 2009-9-06 11:58 来源: 扑奔PPT网

请各位高手帮帮忙,如何能把文件夹里的30张图片,一次性地把这些图片依次粘贴到POWERPOINT的30张空白文档里面,谢谢!
大家对 请教图片复制和粘贴的问题 的评论
danq 发表于 2009-9-06 12:56:57
希望版主出来想想办法啊,在这先谢啦。
amwyq 发表于 2009-9-06 13:51:03
版主也没有办法啊!5555555555...........
danq 发表于 2009-9-06 19:53:35
我试过很多方法啦,都不行。希望版主能把这个问题设置成为有奖问答的一个项目。
wuhuaguo 发表于 2009-9-07 09:39:50

 这是可以实现的,下面是一串快速插入背景图片的一段代码,我用过了,很好用的。 

首先,我们可以的借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。

  第一步:首先准备好图片, C盘下面的Pictures文件夹内加入30jpg格式的图片,如“C\Pictures\1.jpg”“C\Pictures\2.jpg”“C\Pictures\3.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键建立30张图片的空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击运行即可,30张图片很快就自动插入到幻灯片中了。下面的图片是幻灯片插入八张图片,同理30张亦如此

57C2BED5-B010-4B7E-ACE2-5DF35957BC14.jpg
57C2BED5-B010-4B7E-ACE2-5DF35957BC14.jpg

F1984F93-FB16-44E6-8261-722FCD1E1C75.jpg
F1984F93-FB16-44E6-8261-722FCD1E1C75.jpg

jack0421 发表于 2009-9-07 10:20:50
用插入相册可能更简单!
zaapple 发表于 2009-9-07 11:19:01
插入——图片——新建相册
dslgh 发表于 2009-9-07 11:33:04
PPT的相册功能可以帮助你。不用复制粘贴
rebecca103 发表于 2009-9-07 12:45:57
用PPT的相册功能就可以实现了~
lg2015 发表于 2009-9-07 12:47:41
对呀,用相册很容易就实现了,当然有一楼的宏代码也可实现但是不是一般人能掌握的。
amwyq 发表于 2009-9-07 13:19:13
感谢大家的讨论。。。
danq 发表于 2009-9-07 21:38:16
是的,谢谢各位大侠的帮忙啊。我已解决了这个问题。论坛真是人才辈出啊。
最新PPT模板
最新贴子
PPT热贴