- 最后登录
- 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中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
" b ]( p- V3 _# O5 g
% w* F: B9 [# S c1 u% i 当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。 [8 f# k) w M9 h0 X* J
7 X5 v2 B' p% W3 ? 如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?# }) Q8 b" m$ Z4 X+ g, ^6 m
3 X7 F- ]* T- v8 G8 B- F: Z; ?6 y% y6 X' {
按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
' u1 s5 W* s$ M6 y4 m, Q
2 y4 L0 w8 R; o+ b 第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,如“C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名是有序的数字3 @6 x* `& L, q, y3 a: \
' W$ C$ D% M! o- a8 V 第二步:启动PowerPoint 2003,按下Alt+F11键打开Visual Basic编辑器窗口,点击“插入→模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:1 b$ A4 o2 M/ f& A- k; q( H, p
& Q' N& z, K" c( _Sub InsertPic()& r8 ~0 G( R' b/ L
* h; ^6 W2 S* ^Dim i As Integer9 p; j6 f9 ~0 S6 \
: Y4 [% D! Z6 _; uFor i = 1 To ActivePresentation.Slides.Count
1 I" m# O4 [2 z f! w1 C9 b/ s
# ~, ^$ Y: [+ y2 F( N$ ~( O2 W* YActivePresentation.Slides(i).Select% d9 h* E( u4 J! [; U3 t
4 ?1 u; g+ ?% XWith ActiveWindow.Selection.SlideRange9 g2 }* o# D z) f
; R8 a( a& P9 {% I( Q
.FollowMasterBackground = msoFalse
% Z8 a, J/ t7 S5 R6 ^2 q3 q: J
" l& |% T/ K; _! j+ l, Q `.Background.Fill.UserPicture "C:Pictures" & i & ".jpg"
7 I0 H& L' ?1 o% P: m+ Q" C9 O% t
End With1 z9 u6 A# r( q: r6 P( Q3 i z
8 ]& }! @; K0 o' T5 H& L
Next
6 H _' m* h+ v% g1 `4 J. C2 ~$ W, l3 E4 u% @# n# ^* v; n: U. G
End Sub. ? \9 S; C! W
4 N7 ~9 w* i! m4 K
第三步:关闭Visual Basic编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立与图片数目相等(如:100)的多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中。 |
-
总评分: 威望 + 5
金钱 + 15
查看全部评分
|