中人网

标题: PPT使用技巧（四）——快速在PPT里插入图片 [打印本页]
作者: 小小香儿    时间: 2011-7-29 09:13
标题: PPT使用技巧（四）——快速在PPT里插入图片
核心提示：当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。4 Y/ y6 m# @0 X

! e; g2 b4 U: D# v      当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。2 S/ ]& `( ]6 @- t/ _

& S* m# U  ?& v) V      如果要插入几十甚至几百张图片，并且要求每张图片插入到每张幻灯片页面上（即有几张照片就要有几张幻灯片）你会怎么做？. i# Z! ^; z& g  U# @; b1 V8 }
( U# X+ X6 |3 \. a) ?* I6 j% V! r3 t
      按照常用的方法点击“插入→图片→来自文件”菜单命令，然后一个一个选择需要的图片，或者点击“格式→背景”命令，将图片作为PowerPoint的背景导入，这样也太浪费时间了。在这种情况下，可以借助PowerPoint强大的宏功能，将多步操作合并为一步，批量插入图片。
9 j- H. s$ Z; m/ O0 o. g" E0 \  }( R9 \4 O* s' o! F
      第一步：首先准备好图片，假设在C盘下面的Pictures文件夹内有100张jpg格式的图片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的数字! G- @' l! x+ ^8 \, X
' `# N/ Y2 y) w3 A/ e& O
      第二步：启动PowerPoint 2003，按下Alt+F11键打开Visual Basic编辑器窗口，点击“插入→模块”菜单命令，在弹出的代码编辑窗口中输入以下代码：  r& G2 q% o8 [4 Z

7 ~3 S. N1 S! K1 J0 O: T1 z! xSub InsertPic（）
: _* ?8 G) y1 m. e5 h" d9 }  R* N$ U! |
Dim i As Integer( k" ]+ [$ A9 m8 m7 Q% j; G

; m8 A- V: Q  _( v3 P% UFor i = 1 To ActivePresentation.Slides.Count7 Q9 ~3 R3 D! k1 i1 m
0 e1 [0 P9 J  J0 y/ a
ActivePresentation.Slides（i）.Select
4 j8 R/ T% _+ |2 ^# t, E5 |& v% D
# F$ F$ m9 Y' F5 m/ H) \With ActiveWindow.Selection.SlideRange( c7 q  T' y; w8 [7 Q5 q% I
9 j, z. @2 u) P( p
.FollowMasterBackground = msoFalse
+ [, j3 E& b) k2 [' D1 x
: j& k0 p1 y4 T+ a* {. h" b6 a9 _.Background.Fill.UserPicture "C：Pictures" & i & ".jpg"
# v1 m" ?  f+ v: n; c& p+ }6 _2 @1 |+ H1 ^$ S
End With1 @/ ^2 T, u, x  @9 s8 e

% r3 f- M+ X, a& K/ UNext: z: _6 m, L: m3 Y. s; l9 P; h
$ k. {, ~0 }& w
End Sub
3 Z8 l0 o' C" e: z& d; x/ N! p5 V+ o5 u. f8 ?1 R7 u1 L
      第三步：关闭Visual Basic编辑器窗口，上面的模块代码会自动保存。此时，连续按Ctrl+M键建立与图片数目相等（如：100）的多个空白幻灯片。按Alt+F8键打开宏对话框，选中我们上面建立的InsertPic宏，点击“运行”即可，100张图片很快就自动插入到幻灯片中。
作者: 宠着小猪    时间: 2011-7-29 09:29
哇！~很实用哦！！
作者: qangel    时间: 2011-7-29 09:40
哇，要去试试
作者: 芋儿    时间: 2011-7-29 11:54
哈，很少用到宏功能，谢谢香儿的分享，要去试试了
作者: zyclarence    时间: 2011-7-29 13:33
这个好。利用循环
作者: qingtengcha    时间: 2011-7-29 15:46
以前没试过宏功能，现在还是要多看看学习这方面的了，谢谢楼主分享
作者: 山村牧童    时间: 2011-8-1 17:44
感谢分享！辛苦啦！
作者: 枫行    时间: 2011-8-5 15:04
我对VB完全是空白啊~谢谢！自己不会编写，收藏起！
作者: wo2wojia    时间: 2011-9-22 10:10
VB 已然很多年不用了。。。号东西啊
作者: 女蚂蚁    时间: 2012-8-20 12:00
这个我怎么学不会呢？是不是相片一定要按顺序数字编号呢
作者: 64970775    时间: 2012-9-26 15:02
好技巧绝不放过！！
7 j1 v& s9 O1 K# Y8 {, Y3 R8 \收藏了~



欢迎光临 中人网 (http://bbs.chinahrd.net/) Powered by Discuz! X2.5