- 最后登录
- 2024-12-29
- 注册时间
- 2009-6-8
- 威望
- 9756
- 金钱
- 168714
- 贡献
- 195154
- 阅读权限
- 255
- 积分
- 373624
- 日志
- 4
- 记录
- 94
- 帖子
- 5559
- 主题
- 340
- 精华
- 32
- 好友
- 738
 
- 注册时间
- 2009-6-8
- 最后登录
- 2024-12-29
- 积分
- 373624
- 精华
- 32
- 主题
- 340
- 帖子
- 5559
|
核心提示：当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。# |, q/ S1 }8 m
+ V2 C# x+ J1 H$ D# ~: q9 A, ]2 Q 当微软的Office与微软VB中的宏功能相遇时，便可以创造出强大的功能，例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
) j; q: P4 Q! Q( |7 g6 @- o9 z9 F. }3 |6 L: [! d
如果要插入几十甚至几百张图片，并且要求每张图片插入到每张幻灯片页面上（即有几张照片就要有几张幻灯片）你会怎么做？% o; E9 a4 j: F1 M& l8 r! C
$ x$ ]5 E; F, g& ?* T
按照常用的方法点击“插入→图片→来自文件”菜单命令，然后一个一个选择需要的图片，或者点击“格式→背景”命令，将图片作为PowerPoint的背景导入，这样也太浪费时间了。在这种情况下，可以借助PowerPoint强大的宏功能，将多步操作合并为一步，批量插入图片。; t& J0 y9 P& K6 ~3 l6 A. U
5 z* t2 R% W* L
第一步：首先准备好图片，假设在C盘下面的Pictures文件夹内有100张jpg格式的图片，如“C：Pictures1.jpg”、“C：Pictures2.jpg”、“C：Pictures3.jpg”等，文件名是有序的数字
5 C8 e3 g8 y% b) I. r3 w+ a- Z
2 z: R0 T2 I- |' r2 ] 第二步：启动PowerPoint 2003，按下Alt+F11键打开Visual Basic编辑器窗口，点击“插入→模块”菜单命令，在弹出的代码编辑窗口中输入以下代码：0 z8 R0 i9 @$ R$ h6 I/ {% F
+ B* Z9 B% R0 i
Sub InsertPic（）
T( X8 ` `. h. U
; e2 A: _/ w! T5 ?2 H1 iDim i As Integer
6 T* L+ W, ~+ L* e) k: |7 Z: c6 j) t, G
For i = 1 To ActivePresentation.Slides.Count5 V+ W! w8 m) I# `& M, U8 I" s
/ u( ]$ I3 l. z7 l6 r! }ActivePresentation.Slides（i）.Select$ j# X/ x, q: f: o- g
! Z0 K- I+ I2 R9 O$ j( n3 u
With ActiveWindow.Selection.SlideRange5 W; @1 {" _0 |# H" g( E: X0 X
C% X% d) S7 Q3 g; {% F) ~.FollowMasterBackground = msoFalse4 D0 Q5 \2 t, p5 ^9 G0 a8 f1 n
' \6 e z* j' x$ Q( H.Background.Fill.UserPicture "C：Pictures" & i & ".jpg"
& ?; R k% _! }- @
9 ?. W, V, B' wEnd With
" `: Q6 g. u% p" v; y( v! j5 X6 W
' u- S7 H, C5 D: o0 Z2 k$ eNext
( Y# \! `5 {$ L% |0 X) @5 R/ O. V9 [4 |; ?
End Sub
% B3 Q# h2 [3 r7 [, y
G) j# ~2 O6 o" q 第三步：关闭Visual Basic编辑器窗口，上面的模块代码会自动保存。此时，连续按Ctrl+M键建立与图片数目相等（如：100）的多个空白幻灯片。按Alt+F8键打开宏对话框，选中我们上面建立的InsertPic宏，点击“运行”即可，100张图片很快就自动插入到幻灯片中。 |
-
总评分: 威望 + 5
金钱 + 15
查看全部评分
|
窥视卡
雷达卡
发表于 2011-7-29 09:13:04
转播
淘帖
分享
收藏
支持
反对
@朋友
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-7-29 09:29:24
