在world中批量调整图片的大小
1、Alt+F8调出vb宏 创建一个宏名字,setsize
粘贴代码后保存关闭。
Sub setsize() ' ' setsize 宏 ' ' Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(7.13) '宽7.13CM iSha.Height = CentimetersToPoints(9.22) '高9.22CM End If Next End Sub
2.Alt+F8 选择刚才新建的宏点击运行即可。
3.实例如下