设为首页 登录 注册
首页 中人社区 中人博客
查看: 8163|回复: 10
打印 上一主题 下一主题

[教程] PPT使用技巧(四)——快速在PPT里插入图片

[复制链接]

340

主题

105

听众

37万

积分

论坛顾问

早起的鸟儿有虫吃,早起的虫儿被鸟吃!

Rank: 50Rank: 50Rank: 50Rank: 50Rank: 50

注册时间
2009-6-8
最后登录
2024-12-29
积分
373459
精华
32
主题
340
帖子
5559

2012中人社区群英谱勋章 伯乐 最佳辩手 办公室点名活动小金人 勤劳的小蜜蜂 原创先锋 精华大师 2011年人气版主勋章

跳转到指定楼层
楼主
发表于 2011-7-29 09:13:04 |只看该作者 |倒序浏览
核心提示:当微软的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张图片很快就自动插入到幻灯片中。

点评

蟹蓝  很好的教程,米米我就不加了,精神鼓励下哈~  发表于 2011-7-29 09:44  回复
已有 2 人评分威望 金钱 收起 理由
芋儿 + 10 不错的教程
qangel + 5 + 5 鼓励

总评分: 威望 + 5  金钱 + 15   查看全部评分

我信奉一句话:宁可千日无机会,不可一日无准备

112

主题

99

听众

100万

积分

版主

小小猪的爸爸

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

注册时间
2005-4-4
最后登录
2016-10-11
积分
1008515
精华
8
主题
112
帖子
4235

2012中人社区群英谱勋章 2011年人气版主勋章 妙笔生花勋章 晒图达人勋章 办公室点名活动小金人 中人旗帜勋章

沙发
发表于 2011-7-29 09:29:24 |只看该作者
哇!~很实用哦!!
不争,不染,不逆,不持,不缚 快乐就在智者心中
回复

使用道具 举报

245

主题

66

听众

3万

积分

荣誉版主

Rank: 35Rank: 35Rank: 35Rank: 35Rank: 35

注册时间
2005-11-1
最后登录
2019-10-18
积分
37103
精华
15
主题
245
帖子
5932

原创先锋 校招君勋章 2012中人社区群英谱勋章 小天使勋章 2011年人气版主勋章 校招达人勋章 妙笔生花勋章

板凳
发表于 2011-7-29 09:40:53 |只看该作者
哇,要去试试
回复

使用道具 举报

87

主题

20

听众

5万

积分

版主

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

注册时间
2004-5-15
最后登录
2016-7-28
积分
54650
精华
2
主题
87
帖子
3079

最佳辩手 春节活动勋章

地板
发表于 2011-7-29 11:54:45 |只看该作者
哈,很少用到宏功能,谢谢香儿的分享,要去试试了
回复

使用道具 举报

8

主题

4

听众

7947

积分

贡士

中士

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

注册时间
2011-2-24
最后登录
2013-7-6
积分
7947
精华
0
主题
8
帖子
364
5
发表于 2011-7-29 13:33:11 |只看该作者
这个好。利用循环
半城烟沙
回复

使用道具 举报

0

主题

4

听众

1627

积分

举人

Rank: 8Rank: 8

注册时间
2010-1-11
最后登录
2012-4-26
积分
1627
精华
0
主题
0
帖子
332
6
发表于 2011-7-29 15:46:06 |只看该作者
以前没试过宏功能,现在还是要多看看学习这方面的了,谢谢楼主分享
回复

使用道具 举报

129

主题

20

听众

3万

积分

榜眼

Rank: 29Rank: 29Rank: 29Rank: 29Rank: 29

注册时间
2010-12-16
最后登录
2023-8-7
积分
39023
精华
0
主题
129
帖子
2569
7
发表于 2011-8-1 17:44:00 |只看该作者
感谢分享!辛苦啦!
您可以更新记录决定我们一生的,有时不是我们的能力,而是我们的选择。, 让好友们知道您在做什么...
回复

使用道具 举报

9

主题

9

听众

1万

积分

会元

Rank: 19Rank: 19Rank: 19Rank: 19

注册时间
2011-5-14
最后登录
2017-7-3
积分
12914
精华
0
主题
9
帖子
1041

圣诞勋章 校招君勋章

8
发表于 2011-8-5 15:04:19 |只看该作者
我对VB完全是空白啊~谢谢!自己不会编写,收藏起!
回复

使用道具 举报

5

主题

5

听众

1万

积分

同进士出身

Rank: 22Rank: 22Rank: 22Rank: 22

注册时间
2010-7-6
最后登录
2014-12-1
积分
19503
精华
0
主题
5
帖子
1147
9
发表于 2011-9-22 10:10:09 |只看该作者
VB 已然很多年不用了。。。号东西啊
回复

使用道具 举报

2

主题

9

听众

5503

积分

贡士

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

注册时间
2007-10-29
最后登录
2014-5-9
积分
5503
精华
0
主题
2
帖子
197
10
发表于 2012-8-20 12:00:42 |只看该作者
这个我怎么学不会呢?是不是相片一定要按顺序数字编号呢
踏踏实实地工作,认认真真地生活
回复

使用道具 举报