Word中用宏编程完成图片调整大小与旋转

        转载收藏：图片旋转先将图片转化为文字环绕型格式，旋转完后切换回嵌入型，文档中只有图片可以保留图片顺序，文字与图片混合在一起大概率成功，复杂文档可能导致崩溃，建议保存文档后尝试。

​
Sub 批量设置图片格式()
' 批量设置图片格式 宏
'
'
 '定义变量
Dim picwidth
Dim picheight
 
On Error Resume Next '忽略错误
 
picheight = 13.33 '单位厘米，可修改
picwidth = 6 '单位厘米，可修改
 
While ActiveDocument.InlineShapes.Count > 0
 
''类型1：嵌入式图形 InlineShapes类型图片
For Each PictShape In ActiveDocument.InlineShapes
'转换为Shape类型(文字环绕型)
PictShape.ConvertToShape
 
Next
 
Wend
 
While ActiveDocument.Shapes.Count > 0
 
For Each PictShape In ActiveDocument.Shapes
 
PictShape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
PictShape.Width = picwidth * 28.35 '设置图片宽度8cm
PictShape.Rotation = -90 '设置图片角度
 
'转换回InlineShapes类型(嵌入型)
PictShape.ConvertToInlineShape
 
Next
Wend
End Sub

​