前往顾页
以后地位: 主页 > 精通Office > PowerPoint教程 >

利用VBS疾速在PPT中拔出上多张图片

时候:2010-10-08 16:20来源:知行网www.zhixing123.cn 编辑:麦田守望者

  一、起首筹办好需求拔出的图片,假定在E盘下面的image文件夹内有100张jpg格局的图片,如“E:image1.jpg”、“E:image2.jpg”、“E:image3.jpg”等......

 

  第二步:启动PowerPoint ,翻开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 "E:image" & i & ".jpg"

End With

Next

End Sub
 

顶一下
(1)
100%
踩一下
(0)
0%
------分开线----------------------------
标签(Tag):ppt powerpoint2010 演示文稿
------分开线----------------------------
颁发评论
请自发遵循互联网相关的政策法规,严禁公布色情、暴力、革命的谈吐。
评价:
神色:
考证码:点击我更换图片
猜你感兴趣