- 最后登录
- 2024-12-29
- 注册时间
- 2009-6-8
- 威望
- 9756
- 金钱
- 168714
- 贡献
- 194679
- 阅读权限
- 255
- 积分
- 373149
- 日志
- 4
- 记录
- 94
- 帖子
- 5559
- 主题
- 340
- 精华
- 32
- 好友
- 738
 
- 注册时间
- 2009-6-8
- 最后登录
- 2024-12-29
- 积分
- 373149
- 精华
- 32
- 主题
- 340
- 帖子
- 5559
|
核心提示：当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。& m- D' p3 `5 a; d3 L( ]6 B
" V8 [0 ]; i1 K6 t4 L 当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
z5 c8 \/ r) u, O" S
# a4 R, u8 r. W8 D( v: N' I 如果要插入几十甚至几百张图片，并且要求每张图片插入到每张幻灯片页面上（即有几张照片就要有几张幻灯片）你会怎么做？
7 W5 e J$ V* R3 W7 l: q- H0 ^' v4 w% E6 F1 }0 U& z) v% ?0 a7 d {5 f
按照常用的方法点击“插入→图片→来自文件”菜单命令，然后一个一个选择需要的图片，或者点击“格式→背景”命令，将图片作为PowerPoint的背景导入，这样也太浪费时间了。在这种情况下，可以借助PowerPoint强大的宏功能，将多步操作合并为一步，批量插入图片。
' v! |" C' Z0 u J1 j) z6 N
# U/ y3 R) f2 K, q& [: F" }; j 第一步：首先准备好图片，假设在C盘下面的Pictures文件夹内有100张jpg格式的图片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的数字* k) u8 n; q# X a8 o/ g# c
. V5 B: Q" w p( J* a
第二步：启动PowerPoint 2003，按下Alt+F11键打开Visual Basic编辑器窗口，点击“插入→模块”菜单命令，在弹出的代码编辑窗口中输入以下代码：
! z) K- t1 w4 ?# h! N4 F [, o# A8 v5 _. W( D3 c; ~
Sub InsertPic（）% `" E. B T0 X8 J& [
/ e2 _/ e8 V5 h0 m, o4 _7 V0 T: u _Dim i As Integer
( i3 W. r7 p% E5 i
7 |. H/ m3 Z4 P/ XFor i = 1 To ActivePresentation.Slides.Count1 V) E) b+ c$ D
2 `3 X, [( g3 a+ OActivePresentation.Slides（i）.Select
8 K% Y( ]" g$ c: W/ l8 B8 u9 e- a% A8 c5 `$ ?4 D1 {
With ActiveWindow.Selection.SlideRange+ _: l3 s! |8 O* k9 s
$ r2 @+ C) v6 m/ N4 u/ V$ \0 z
.FollowMasterBackground = msoFalse
n+ E$ E8 P7 Y) e9 X0 q" K; M- l- d! f. z
.Background.Fill.UserPicture "C：Pictures" & i & ".jpg"7 F( i7 x* l2 r1 d% J/ {
: m4 h' r. v& kEnd With
6 m/ x+ P) b3 O" J4 S4 o
& _; R. e% d: ^5 XNext
7 n$ p3 v, x# v c& u/ R% W
& c E& m8 J% f! Q0 N2 wEnd Sub6 Q' c& ?2 I# R! s1 x
) B; r- ]0 a4 J6 z! a: n 第三步：关闭Visual Basic编辑器窗口，上面的模块代码会自动保存。此时，连续按Ctrl+M键建立与图片数目相等（如：100）的多个空白幻灯片。按Alt+F8键打开宏对话框，选中我们上面建立的InsertPic宏，点击“运行”即可，100张图片很快就自动插入到幻灯片中。 |
-
总评分: 威望 + 5
金钱 + 15
查看全部评分
|
窥视卡
雷达卡
发表于 2011-7-29 09:13:04
转播
淘帖
分享
收藏
支持
反对
@朋友
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-7-29 09:29:24
