怎样批量修改文档中图片为统一大小

Lovertdos

除了用宏，有没有其他方法

活在理想的世界

应该没有其他方法了。因为这是对象属性的问题，更改属性属性除了代码没有其他。不过你要是想手动改也没关系。

Lovertdos

活在理想的世界 发表于 2017-11-6 16:08
应该没有其他方法了。因为这是对象属性的问题，更改属性属性除了代码没有其他。不过你要是想手动改也没关系 ...

谢谢，但是VBA代码不知道怎么用

02761752696

不用VBA    技巧也可以

Lovertdos

02761752696 发表于 2017-11-6 16:37
不用VBA    技巧也可以

美女你好，我咋看这个像是EXCEL

Lovertdos

02761752696 发表于 2017-11-6 16:37
不用VBA    技巧也可以

好像WORD里面只能单选，不能多选图片

02761752696

Lovertdos 发表于 2017-11-6 17:31
好像WORD里面只能单选，不能多选图片

WORD  全选   复制     粘贴到  Excel   在按动画  操作     

活在理想的世界

02761752696 发表于 2017-11-6 18:32
WORD  全选   复制     粘贴到  Excel   在按动画  操作

改完以后呢？在复制粘贴到word？然后再一张张放回去？

就算在EXCEL里面只有一个工作表还可以，如果有几十张表或者更狠点，在几十个文件夹里的几百个工作簿里的上千个工作表都要相应类似操作你如何解决？而且还得放在指定的位置上怎么办？

02761752696

呵呵   那你为什么不用VBA    你好矛盾啊  

13907933959

Lovertdos 发表于 2017-11-6 16:24
谢谢，但是VBA代码不知道怎么用

步骤如下：
1、打开你需要处理的Word文档；
2、同时按电脑键盘上的ALT和F11键；
3、在左边的工程窗口里面有个“Normal”，点开它，后有个“模块”节点；
4、在这个“模块”节点上，点鼠标右键，选择“插入→模块”，这样右边就会出现代码窗口；
5、在出现的VBA代码窗口中，粘贴代码；
6、关闭代码窗口→再点文档上面的“工具”→“宏”→“宏”→点击代码名→“运行”，即可。

Sub 批量调整图片的高度与宽度()
    Dim myShape As Shape, myIns As InlineShape
    For Each myIns In ActiveDocument.InlineShapes
       h = myIns.Height
       w = myIns.Width
       myIns.Height = 140                '140为图片高度，可根据需要修改此数值。
       myIns.Width = w * 140 / h         '140为图片宽度，可根据需要修改此数值。
    Next
End Sub