用宏批量调整word中图片版式、大小、方向

Sub 图片对齐() .......................................................................................................................................... 1 Sub 图片大小() .......................................................................................................................................... 1 Sub 浮于文字上方() ................................................................................................... 错误!未定义书签。 Sub 浮于文字上方() .................................................................................................................................. 4 Sub 连续() .................................................................................................................................................. 4 Sub 版式转换() .......................................................................................................................................... 4 Sub 图片方向() .......................................................................................................................................... 5 Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next For n = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(n).Select Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionMargin Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.Left = wdShapeRight Selection.ShapeRange.Top = wdShapeBottom Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.LayoutInCell = True Selection.ShapeRange.WrapFormat.AllowOverlap = False Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight Application.ScreenUpdating = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为...