- 最后登录
- 2023-1-10
- 注册时间
- 2009-6-8
- 威望
- 9756
- 金钱
- 168690
- 贡献
- 191862
- 阅读权限
- 255
- 积分
- 370308
- 日志
- 4
- 记录
- 94
- 帖子
- 5558
- 主题
- 340
- 精华
- 32
- 好友
- 738
 
- 注册时间
- 2009-6-8
- 最后登录
- 2023-1-10
- 积分
- 370308
- 精华
- 32
- 主题
- 340
- 帖子
- 5558
|
核心提示：当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
7 g5 i8 i3 `5 R- U Y- i/ @' b
8 R# C2 F' |# v. q 当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
8 P. ^# D, `- h! ~8 |: h8 s$ Y
) C% y+ o2 |( c, G5 y e 如果要插入几十甚至几百张图片，并且要求每张图片插入到每张幻灯片页面上（即有几张照片就要有几张幻灯片）你会怎么做？; ~0 p7 A' P, w$ ^4 t2 X
2 a+ S4 a( w+ Y5 D* l2 Z
按照常用的方法点击“插入→图片→来自文件”菜单命令，然后一个一个选择需要的图片，或者点击“格式→背景”命令，将图片作为PowerPoint的背景导入，这样也太浪费时间了。在这种情况下，可以借助PowerPoint强大的宏功能，将多步操作合并为一步，批量插入图片。 {# f9 ]0 [# ]
V$ J V& \2 V' L 第一步：首先准备好图片，假设在C盘下面的Pictures文件夹内有100张jpg格式的图片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的数字3 c8 Z: o4 l0 X7 k% z+ h& \
: F W; o: ~5 r. f( d0 N) A 第二步：启动PowerPoint 2003，按下Alt+F11键打开Visual Basic编辑器窗口，点击“插入→模块”菜单命令，在弹出的代码编辑窗口中输入以下代码：
3 |) Y" P2 f. A' w5 s8 z3 `* |1 J9 x% G0 i
5 |# q4 o1 U+ S# i) LSub InsertPic（）
3 m+ t1 _* i X9 d0 D) H
% ?1 A( t; `) D! {Dim i As Integer
4 U3 W# |/ V! Y' I0 k
% [* L- Z9 j8 W* p7 Y8 v1 LFor i = 1 To ActivePresentation.Slides.Count$ F# \# v& d2 T" S
% _# i! T. e: w, c( k! j$ UActivePresentation.Slides（i）.Select1 E, \3 @' j8 L4 P6 o# @/ p5 Q
+ B; p' M( o ~( b }) x0 K
With ActiveWindow.Selection.SlideRange
6 m4 s: O, X4 X* Z5 O- M$ h0 M; @; Q; K$ }& A
.FollowMasterBackground = msoFalse
# M3 o; f+ \0 ~. d) M! p( R* G6 N! Y; x9 x
.Background.Fill.UserPicture "C：Pictures" & i & ".jpg", Z! l% ^& Q7 X- r" L% F
) t7 X6 E, Y4 p) X: i8 r8 m( |. D
End With, _2 s. a& j6 ~8 \* t9 O0 n! ^
6 M7 m& C1 Q$ f! X7 k2 VNext
& M9 S, C F+ \+ k) _8 o( M* X
+ J! q1 I0 N K2 F4 \* q5 I7 W# Y' e* iEnd Sub. r5 J. b# g( C1 H4 p
3 l+ K. g% s8 O& D- @+ U 第三步：关闭Visual Basic编辑器窗口，上面的模块代码会自动保存。此时，连续按Ctrl+M键建立与图片数目相等（如：100）的多个空白幻灯片。按Alt+F8键打开宏对话框，选中我们上面建立的InsertPic宏，点击“运行”即可，100张图片很快就自动插入到幻灯片中。 |
-
总评分: 威望 + 5
金钱 + 15
查看全部评分
|
窥视卡
雷达卡
发表于 2011-7-29 09:13:04
转播
淘帖
分享
收藏
支持
反对
@朋友
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-7-29 09:29:24
