- 最后登录
- 2024-12-29
- 注册时间
- 2009-6-8
- 威望
- 9756
- 金钱
- 168714
- 贡献
- 194999
- 阅读权限
- 255
- 积分
- 373469
- 日志
- 4
- 记录
- 94
- 帖子
- 5559
- 主题
- 340
- 精华
- 32
- 好友
- 738
    
- 注册时间
- 2009-6-8
- 最后登录
- 2024-12-29
- 积分
- 373469
- 精华
- 32
- 主题
- 340
- 帖子
- 5559
|
核心提示:当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
1 Q" Y% w5 M* U; c( b) x- ^6 e! q4 x* a0 E* m/ s
当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
+ Z& Z! a1 e- u3 C
$ m( ~; V2 _: M" ~; j 如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?% z2 K& E {0 `, p: `' d
2 v6 L* P2 y# t' R7 t4 a9 P& C
按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
6 ?% Y8 R( D$ C0 V- J6 m
; U7 X4 o3 |3 R$ b 第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,如“C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名是有序的数字! R! ]1 D# G5 C5 y$ h+ |% {/ l
* N. g. w: T% N* N/ O. O
第二步:启动PowerPoint 2003,按下Alt+F11键打开Visual Basic编辑器窗口,点击“插入→模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:
5 r. f+ l) |+ R& B3 N0 G$ v8 E& g6 Z6 O
Sub InsertPic()% a4 p4 v$ e% N' W# r1 c: o
9 x! D S* b0 h+ x- |6 `Dim i As Integer
) {: |/ c! D7 T" ~* z! ] s! X
& ~0 E* d3 Y% O% K, H. b4 JFor i = 1 To ActivePresentation.Slides.Count5 U2 `& K/ |5 a% U
8 C& q1 P1 q/ x5 FActivePresentation.Slides(i).Select
! T; [7 O) D: ]% j/ s ^! n: Z! p" c- g
With ActiveWindow.Selection.SlideRange- L! B/ [. Z" x) G' Q2 N8 [
- K7 `4 \# R# S0 z% C.FollowMasterBackground = msoFalse
m3 C% B1 J: O. |7 m0 w, U4 D$ t' W* h* u
.Background.Fill.UserPicture "C:Pictures" & i & ".jpg"
2 k" G! }& O4 ~6 k: j0 D" a/ J0 y" r( \: g M- Q
End With4 o& w# {5 t6 x- c! L
4 `0 B6 c; }5 Y7 w* UNext
0 O/ r6 a' |" i& y: [3 t9 ^5 D% x4 P7 k# W: H
End Sub# x5 G% t* T; ~- J( f
# B. J2 ^* x! O+ Z" S4 l: \, Q: | 第三步:关闭Visual Basic编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立与图片数目相等(如:100)的多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中。 |
-
总评分: 威望 + 5
金钱 + 15
查看全部评分
|