• <tr id="5080a3d9"><strong id="139cd03"></strong><small id="46db83b7"></small><button id="5b9d37c"></button><li id="9c74238"><noscript id="2d391dc9"><big id="19be9851"></big><dt id="118353e7"></dt></noscript> </tr><ol id="5339a0"><option id="7881012c"><table id="761b5ae"><blockquote id="3b59d293"><tbody id="113aa09c"></tbody></blockquote></table></option></ol><u id="409c7769"></u><kbd id="4eef2e5e"><kbd id="55afc602"></kbd></kbd>
  • 千赢国际教程下载和软件下载中心,Microsoft技术社区联盟成员,全球极具影响力的千赢国际门户,Office技术培训社区

    Word实现多种要求批量插入图片

    2014-09-22  作者:千赢国际Home  阅读:

    下载文档: ,启用并运行Word宏千赢国际平台,批量插入图片后可以实现如下效果:
    1、可以将图片的名称显示在图片下方;
    2、图片的宽度大小可按要求任意设置(修改宏代码里的相关数值),实现批量等比例缩放。具体操作方法件如下动画演示:



    宏代码如下
    Sub setpicsize() '设置图片大小
    Dim n '图片个数
    On Error Resume Next '忽略错误
    For n = 1 To ActiveDocument.InlineShapes.Count  'InlineShapes类型图片
    ActiveDocument.InlineShapes(n).Width = 360  '设置图片宽度 300px
    Next n
    For n = 1 To ActiveDocument.Shapes.Count  'Shapes类型图片
    ActiveDocument.Shapes(n).Width = 360  '设置图片宽度 300px
    Next n
    End Sub
    转载请注明来源"千赢国际Home"并保留原文链接。
    固定链接:http://ryansdrew.com/lesson/animation/Word/1384.html
    分享到:
    Copyright 1999 - 2017 千赢国际 Home.All Rights Reserved.
    本站特聘法律顾问:徐怀玉律师 李志群律师   沪ICP备11019229号
           
    网站地图