找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登录

新浪微博

查看: 913|回复: 1

[PPT 教程] [TSNU.CN]PowerPoint一秒钟快速在PPT里插入100张图片

[复制链接]
  • TA的每日心情
    开心
    2015-10-20 09:16
  • 签到天数: 114 天

    [LV.6]常住居民II

    2306

    主题

    2523

    帖子

    1万

    积分

    管理员

    Rank: 16Rank: 16Rank: 16Rank: 16

    积分
    11959

    最佳新人活跃会员

    发表于 2015-1-29 23:57:50 | 显示全部楼层 |阅读模式
    天水大学生网-提供】  如果要插入几十甚至几百张图片,并且要求每张图片插入到每张幻灯片页面上(即有几张照片就要有几张幻灯片)你会怎么做?
    ' y7 v7 r7 B. K6 g4 t
    0 D2 R+ c6 \  k: e9 v0 ^8 n  按照常用的方法点击“插入→图片→来自文件”菜单命令,然后一个一个选择需要的图片,或者点击“格式→背景”命令,将图片作为PowerPoint的背景导入,这样也太浪费时间了。在这种情况下,可以借助PowerPoint强大的宏功能,将多步操作合并为一步,批量插入图片。
    1 \6 s1 x- y  [6 i
    " b, r# ]4 M( e, q; K  第一步:首先准备好图片,假设在C盘下面的Pictures文件夹内有100张jpg格式的图片,如“C:Pictures1.jpg”、      “C:Pictures2.jpg”、“C:Pictures3.jpg”等,文件名是有序的数字9 a. L- i2 T. ]; z. c% h1 w  M; }
      9 K6 b2 w1 M2 e- `8 D
      第二步:启动PowerPoint 2003,按下Alt+F11键打开Visual Basic编辑器窗口,点击“插入→模块”菜单命令,在弹出的代码编辑窗口中输入以下代码:
    5 Z  H& v  G  e7 Y2 PSub InsertPic()* r$ s, X2 U! U! l/ a) L( L
    Dim i As Integer8 s$ V9 L1 M$ E9 @2 V: W1 Y
    For i = 1 To ActivePresentation.Slides.Count7 m! H8 R/ f' f; D- K- |: y3 @
    ActivePresentation.Slides(i).Select9 l' V. i* T% W
    With ActiveWindow.Selection.SlideRange5 x3 R  B5 w2 y1 a( Q! U* T
    .FollowMasterBackground = msoFalse
      b( ?. v8 A, E5 A, B  D" M+ F6 G.Background.Fill.UserPicture "C:Pictures" & i & ".jpg"# n8 H" p  O# n* L! R+ d
    End With
    1 b5 a4 {9 J% G. kNext
    ( q+ D  v$ s; k& q* Y3 B8 dEnd Sub& D; H4 H. P' [
    ! y  e3 l; f7 W
      第三步:关闭Visual Basic编辑器窗口,上面的模块代码会自动保存。此时,连续按Ctrl+M键建立与图片数目相等(如:100)的多个空白幻灯片。按Alt+F8键打开宏对话框,选中我们上面建立的InsertPic宏,点击“运行”即可,100张图片很快就自动插入到幻灯片中# @1 b& k, \7 B1 V" ?- M: l- h
    转载请注明来自【天水大学生网http://www.tsnu.cn】
    爱生活,爱上天水大学生网http://www.tsnu.cn

    该用户从未签到

    0

    主题

    5

    帖子

    20

    积分

    幼儿园

    Rank: 1

    积分
    20
    发表于 2015-1-30 17:58:15 | 显示全部楼层

    什么狗屁帖子啊,楼主的语文是苍老师教的吗?

    什么狗屁帖子啊,楼主的语文是苍老师教的吗?
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

     
     
    在线客服
    点击这里给我发消息
    师院校友联谊:
    天水师院校友联谊
    兼职①群:
    天水大学生网兼职①群
    工作时间:
    8:00-18:00
     
    发布主题 快速回复 返回列表 联系我们 官方QQ群
    返回列表 快速回复 返回顶部