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

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

[复制链接]

340

主题

105

听众

37万

积分

论坛顾问

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

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

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

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

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

点评

蟹蓝  很好的教程,米米我就不加了,精神鼓励下哈~  发表于 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
积分
1008220
精华
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
积分
37093
精华
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 |只看该作者
这个我怎么学不会呢?是不是相片一定要按顺序数字编号呢
踏踏实实地工作,认认真真地生活
回复

使用道具 举报