如何用宏将word中被放大的图片批量调整为原始尺寸？

uhunters

word中有很多图片，都被放大了。

现在想将其批量调整为原始尺寸。

word2016里面有个重置功能，但是无法用录制宏的方式录制进去。

求高手指教。

ps：不是要把所有图片统一为一个尺寸，而是调整到每个图片的原始尺寸

duquancai

请测试：
Sub test()
Dim oIp As InlineShape
On Error Resume Next
With ActiveDocument
    For Each oIp In .InlineShapes
        oIp.ScaleHeight = 100
    Next
End With
End Sub

uhunters

duquancai 发表于 2016-6-10 16:02
请测试：
Sub test()
Dim oIp As InlineShape

不好意思，出差没时间回复，谢谢您

古豆

同样感谢，正是需要的!

jany1312

duquancai 发表于 2016-6-10 16:02
请测试：
Sub test()
Dim oIp As InlineShape

对于不懂VBA 的人，感觉好厉害