- 最后登录
- 2024-12-29
- 注册时间
- 2009-6-8
- 威望
- 9756
- 金钱
- 168714
- 贡献
- 194989
- 阅读权限
- 255
- 积分
- 373459
- 日志
- 4
- 记录
- 94
- 帖子
- 5559
- 主题
- 340
- 精华
- 32
- 好友
- 738
    
- 注册时间
- 2009-6-8
- 最后登录
- 2024-12-29
- 积分
- 373459
- 精华
- 32
- 主题
- 340
- 帖子
- 5559
|
核心提示:当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。) v+ s0 j! j# h
& K1 k/ @# r2 Y8 U& r5 B
当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。. e& E7 \- d% N A9 g7 L5 U
# u6 \$ V+ T- S' e& ?% Y
如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?9 d+ g' Y% _. P C8 d w
6 ?+ e$ }0 W2 A, A; K% L, p7 r 按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。) |+ M4 @. Z7 e, v! e( m; ]$ d
, ]7 y, F/ e9 Z' Q+ M5 Q 第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,如“C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名是有序的数字
; ]- w. x0 H. ?7 q' n0 c' j6 ~6 k( ^! A1 Q
第二步:启动PowerPoint 2003,按下Alt+F11键打开Visual Basic编辑器窗口,点击“插入→模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:* A9 g; X5 {( s, H. n
9 z+ V; }$ `' t4 N1 s& |0 nSub InsertPic()
6 z7 w+ Q2 A3 V$ m4 `' L9 I, t5 U4 c J& v, Z- r3 X. J9 _
Dim i As Integer
1 N2 S" K- l8 d S5 @* v3 C8 _# h3 A
For i = 1 To ActivePresentation.Slides.Count" E2 k- }0 Z* r5 ?
# f1 i1 `8 l1 }9 ^: e8 T& ~ActivePresentation.Slides(i).Select
- o3 F4 Q- T/ j8 p4 z& @0 M2 A: u' R# i* t5 S) b
With ActiveWindow.Selection.SlideRange% X; f2 k$ p, [( u: X( P) }
: u0 n# s y5 z2 f
.FollowMasterBackground = msoFalse
4 `" p6 C* W( s8 Q
' Q) ?" v1 p& u! k" r" R) U, {1 r.Background.Fill.UserPicture "C:Pictures" & i & ".jpg"$ H2 K. T9 Y$ N9 h& ~6 k' z
" e+ u9 e+ a1 p. V" s KEnd With
/ Z9 i: L& W6 J. Z3 j. k% u
7 t- A$ Q# B7 aNext% Y+ R0 I3 d4 K' y
1 f! A5 H7 j5 ]3 I$ l& T
End Sub% {# l' q) W: J1 G9 v
8 ?) \& N* R W& ]
第三步:关闭Visual Basic编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立与图片数目相等(如:100)的多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中。 |
-
总评分: 威望 + 5
金钱 + 15
查看全部评分
|