Sub SetPicturesSize() '定义宏
Dim n '计数器
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
InlineShapes.LockAspectRatio = msoTrue 'msoTrue表示锁定纵横比 msoFalse是不锁定
ActiveDocument.InlineShapes(n).Height = 666 * 28.35 '设置图片高度666cm(1cm=28.35px)
ActiveDocument.InlineShapes(n).Width = 666 * 28.35 '设置图片宽度666cm
Next n
End Sub
技不技术都是虚的,office才最重要。 ——某不知名菜鸡