首页 散文大全 经典语录 励志故事 学习资料 网名大全 游戏名字 周公解梦 十二生肖 笑话大全 十二星座 个性签名 说说大全
  • 散文大全
  • 经典语录
  • 励志故事
  • 学习资料
  • 网名大全
  • 游戏名字
  • 周公解梦
  • 十二生肖
  • 笑话大全
  • 十二星座
  • 个性签名
  • 说说大全
  • 范文大全
  • 创业指南
  • 致富视频
  • 【word中图片批量统一大小图文的操作方法】word所有图片统一大小

    时间:2019-09-11 02:35:22 来源:有好资料网 本文已影响 有好资料网手机站

    相关热词搜索: word中图片批量统一大小图文的操作方法 批量调整word图片大小 word批量修改图片大小

      从网上下载的图片一般都是大小不一致的。在这种情况下,可以通过一些看图软件来统一图片的大小。下面,告诉大家一个使用简单工具快速批量调整图片大小的方法。这个工具就是大家经常使用的office word。今天,小编就教大家在word中图片批量统一大小图文的操作方法。

      word中图片批量统一大小图文的操作步骤如下:

      Sub setpicsize() '设置图片大小

      Dim n '图片个数

      On Error Resume Next '忽略错误

      For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

      ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px

      ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px

      Next n

      For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

      ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px

      ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px

      Next n

      End Sub

      1. 打开要统一图片大小的 Word 文档,点击“工具”-“宏”-“Visual Biscal 编辑器。

      2. 插入 normal 工程“模块”。

      3. 在“模块”中粘贴上面的代码。

      4. 保存,返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-"宏命令"。

      看一下结果,是不是你想要的统一图片大小。

      我用的两张图一个大一个小,统一后 400*300 还是很大,放在两个页面上,上面是25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。

      按比例缩放的方法和上面的是一样的,只是代码变化一下,过程就不熬述。VBA 代码如下:

      Sub setpicsize() '设置图片大小

      Dim n '图片个数

      On Error Resume Next '忽略错误

      For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

      ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px

      ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px

      Next n

      For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

      ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px

      ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px

      Next n

      End Sub
     

    word中图片批量统一大小图文的操作方法相关文章

    1.Word2013中批量统一图片大小的操作方法

    2.Word中进行批量将图片调整到相同尺寸大小的操作方法

    3.如何批量调整word的图片大小

    4.word如何批量导入、修改图片尺寸和压缩图片

    5.word中如何将图片统一设置大小

    6.如何批量更改word的图片大小

    7.word中图片尺寸统一大小的操作技巧

    • 范文大全
    • 说说大全
    • 学习资料
    • 语录
    • 生肖
    • 解梦
    • 十二星座