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

Sub 图片对齐() 1 Sub 图片大小() 1 Sub 浮于文字上方() 3 Sub 浮于文字上方() 3 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);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；, Title:=请输入图片宽度, Default:=0)) * 28.35 myheight = Val(InputBox(Prompt:=单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；, Title:=请输入图片高度, Default:=0)) * 28.35 ------------------------------------------------------------------ 调整嵌入式图形 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes If mywidth = 0 Then pic.Height = myheight pic.ScaleWidth = pic.ScaleHeight ElseIf myheight = 0 Then pic.Width = mywidth pic.ScaleHeight = pic.ScaleWidth Else pic.Width = mywidth pic.Height = myheight End If Next 调整浮动式图形 Dim tu As Shape For Each tu In ActiveDocument.Shapes If mywidth = 0 Then tu.Height = myheight ElseIf myheight = 0 Then tu.Width = mywidth Else tu.LockAspectRatio = msoFalse tu.Width = mywidth tu.Height = myheight End If Next Application.ScreenUpdating = True 恢复屏幕更新 End Sub Sub 浮于文字上方() Dim oShape As Variant, tu As Shape, i Application.ScreenUpdating = False 关闭屏幕更新 On Error Resume Next 调整嵌入图形为浮于文字上方，并旋转90度 For Each oShape In ActiveDocument.InlineShapes Set oShape = oShape.ConvertToShape