mac os 系统word文档批量更改图片尺寸问题汇总 您所在的位置:网站首页 word表格统一调整大小 mac os 系统word文档批量更改图片尺寸问题汇总

mac os 系统word文档批量更改图片尺寸问题汇总

2024-07-09 08:50| 来源: 网络整理| 查看: 265

记录一下更改word文档中的图片时遇到的问题。

word文档是文字、排版什么的都做完了,只想批量调一下图片尺寸。发现无论是word和还是wps都无法用快捷键选中所有图片。后面用宏解决了批量修改的问题。

wps存在的问题

首先用了wps,app store里直接下载的。在word选项中没有找到选择多个对象的功能。用了选择窗格的功能。 点击开始-选择-选择窗格

【点击开始-选择-选择窗格】 然后选择图片的时候,发现不能够同时选中窗格中所有图片对象。按ctrl,shift,comm或者一些常用组合键都没选中。

word 2016

word 2016打开以后没找到选择功能,百度也没找到答案。但是可以先调整一张图片的大小,然后依次点击剩余的图片,按下ctrl+y更改。

在这里插入图片描述

【右键点击一张图片—大小和位置,设置宽和高】 这种方法图片多了很浪费时间。继续搜索,找到一段相关的宏代码。

新建一个宏。 在这里插入图片描述

把代码放进去。

在这里插入图片描述

运行宏即可。

附上代码。

Dim i Dim Height, Weight Height = 200 '改成自己的高度 Weight = 350 '改成自己的宽度 On Error Resume Next '忽略错误 For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px Next i For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px Next i End Sub


【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有