用宏批量調(diào)整word中圖片版式、大小、方向

1、Sub 圖片對齊 () 1Sub 圖片大小 () 1Sub 浮于文字上方 () 錯誤! 未定義書簽。Sub 浮于文字上方 () 4Sub 連續(xù) () 4Sub 版式轉(zhuǎn)換 () 4Sub 圖片方向 () 5Sub 圖片對齊 ()Application.ScreenUpdating = False ' 關(guān)閉屏幕更新Dim nOn Error Resume NextActiveDocument.Shapes(n).SelectorizontalPosition = _wdRelativeHorizontalPositionMargin Selection.ShapeRange.Relativ

2、eVerticalPosition = _wdRelativeVerticalPositionMargin Selection.ShapeRange.Left = wdShapeRight Selection.ShapeRange.Top = wdShapeBottom Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.LayoutInCell = True Selection.ShapeRange.WrapFormat.AllowOverlap = False Selection.ShapeRange.WrapForma

3、t.Side = wdWrapBoth Next Application.ScreenUpdating = True ' 恢復(fù)屏幕更新 End SubSub 圖片大小 () On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False ' 關(guān)閉屏幕更新'調(diào)整嵌入式圖形 Dim pic As InlineShapeIf mywidth = "0" Then pic.Height = myheightElseIf myheight = "0"

4、 Then pic.Width = mywidthElse pic.Width = mywidth pic.Height = myheight End IfNext '調(diào)整浮動式圖形 Dim tu As ShapeFor Each tu In ActiveDocum If mywidth = "0" Then tu.Height = myheight ElseIf myheight = "0" Then tu.Width = mywidth Else tu.LockAspectRatio = msoFalse tu.Width = mywidth

5、 tu.Height = myheightEnd IfNextApplication.ScreenUpdating = True ' 恢復(fù)屏幕更新End SubSub 浮于文字上方 ()Dim oShape As Variant, tu As Shape, iApplication.ScreenUpdating = False ' 關(guān)閉屏幕更新 On Error Resume Next'調(diào)整嵌入圖形為浮于文字上方，并旋轉(zhuǎn)90 度ActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type = 3'

6、; (去除 .Zorder 行 .WrapFormat .Type = shapeType 四周 形 .WrapFormat .Type = wdWrapTight 緊密形 改為 .ConvertToInlineShape 嵌入形 ).ZOrder 4 '4 浮于文字上方 5 襯于下方.Rotation = -90#End WithNext'調(diào)整其它圖形為浮于文字上方，并旋轉(zhuǎn)90 度ActiveDocument.Shapes(i).SelectWith tu.WrapFormat.Type = 3 ' (去除 .Zorder 行 .WrapFormat .Type =

7、shapeType 四周 形 .WrapFormat .Type = wdWrapTight 緊密形 改為 .ConvertToInlineShape 嵌入形 ).ZOrder 4 '4 浮于文字上方 5 襯于下方.Rotation = -90#End WithNextApplication.ScreenUpdating = True ' 恢復(fù)屏幕更新End SubSub 浮于文字上方 ()Dim oShape As Variant, iApplication.ScreenUpdating = False ' 關(guān)閉屏幕更新On Error Resume NextActi

8、veDocument.InlineShapes(i).Select '選中圖片With oShape.ZOrder 4'選中圖片版式調(diào)為浮于文字上方.Rotation = -90#'選中圖片向左旋轉(zhuǎn) 90 度End WithNextApplication.ScreenUpdating = True ' 關(guān)閉屏幕更新End SubSub 連續(xù) ()Call 浮于文字上方Call 圖片大小Call 圖片對齊End SubSub 版式轉(zhuǎn)換 ()Dim oShape As Variant, shapeType As WdWrapTypeOn Error Resume N

9、extIf MsgBox("Y 將圖片由嵌入式轉(zhuǎn)為浮動式 ,N 將圖片由浮動式轉(zhuǎn)為嵌入式 ", 68) = 6 Then shapeType = Val(InputBox(Prompt:=" 請輸入圖片版式 :0= 四周型 ,1= 緊密型 , " & vbLf & _"3=襯于文字下方 ,4=浮于文字上方 ", Default:=0)With oShapeSelect Case shapeTypeCase 0, 1 .WrapFormat.Type = shapeTypeCase 3.WrapFormat.Type = 3 .ZOrder 5Case 4.WrapFormat.Type = 3 .ZOrder 4Case ElseExit SubEnd Select.WrapFormat.All