- 最后登录
- 2024-12-29
- 注册时间
- 2009-6-8
- 威望
- 9756
- 金钱
- 168714
- 贡献
- 195164
- 阅读权限
- 255
- 积分
- 373634
- 日志
- 4
- 记录
- 94
- 帖子
- 5559
- 主题
- 340
- 精华
- 32
- 好友
- 738
    
- 注册时间
- 2009-6-8
- 最后登录
- 2024-12-29
- 积分
- 373634
- 精华
- 32
- 主题
- 340
- 帖子
- 5559
|
核心提示:当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。2 l( k. u7 r- D1 | ?
: n+ s8 Q5 I3 r3 M! G 当微软的Office与微软VB中的宏功能相遇时,便可以创造出强大的功能,例如在这篇文章中就介绍了利用这两个工具瞬间插入上百张图片。
. I' }- T/ W% e6 [6 l/ i* @
) g3 F# b( K% g- v 如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?6 [' c7 u* k' o+ L* Q. N
& U5 g* L! [, x 按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
1 L+ o' _& J" L+ h
2 y; L* u) r8 O 第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,如“C:Pictures1.jpg”、“C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名是有序的数字
5 ^5 ]7 Y- k, o
' H0 J" Y+ w! o! m/ g$ H* ]$ O' x 第二步:启动PowerPoint 2003,按下Alt+F11键打开Visual Basic编辑器窗口,点击“插入→模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:, z8 T4 G5 {3 p. ^. o1 Y9 ?% v7 B
3 U5 h7 F* O! R! v- j
Sub InsertPic()3 M( T/ V1 s- J2 }! c, @+ \
% y! k, Y. ]( e) s
Dim i As Integer4 ~; {$ c9 N! W* I6 y
) y/ [7 u) X- B; |2 e
For i = 1 To ActivePresentation.Slides.Count
7 U; n& S/ V5 w5 g1 q0 h, E; E+ [. ?3 B8 L1 @! }+ Y( U" g
ActivePresentation.Slides(i).Select
$ t+ B' K8 X6 x7 }1 [4 `& U. Z" v6 d5 V6 F
With ActiveWindow.Selection.SlideRange
, Z! E: ^+ B( N! r6 @ ]3 B1 P- I: |' E) u K$ B7 Q
.FollowMasterBackground = msoFalse
. A7 {8 ~3 \! C/ } T
8 M! g5 ^) N$ x3 B6 v.Background.Fill.UserPicture "C:Pictures" & i & ".jpg"
& L4 g2 ^' A' D, i* E2 J0 E3 A8 k; n5 c6 W: ~3 G$ o
End With
* T; F, c8 i* x; I5 H; P0 O: M. A- V, U
Next: c1 ^) @- u- ]2 y: |0 m2 c
$ r. [# E1 A( w: i7 H$ ?. cEnd Sub' T2 u0 o9 a5 |9 k# S) P' |
8 I* b% g; s% @8 R5 ?5 |0 E 第三步:关闭Visual Basic编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立与图片数目相等(如:100)的多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中。 |
-
总评分: 威望 + 5
金钱 + 15
查看全部评分
|