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

1、Sub圖片方向()Sub圖片對齊()Applicati on .Scree nU pdat ing = False 關(guān)閉屏幕更新Dim nOn Error Resume NextActiveDocume nt.Shapes( n).Selectoriz on talPositi on = _wdRelativeHoriz on talPositi onM arginwdRelativeVerticalPositi onMarginNextApplication.ScreenUpdating = True 恢復(fù)屏幕更新End SubSub圖片大小()On Error Resume NextDim

2、 mywidthDim myheightApplicati on .Scree nU pdat ing = False 關(guān)閉屏幕更新，寬度根據(jù)，高度根據(jù)mywidth = Val(InputBox(Prompt:=單位為厘米(cm);如果輸入為 0，則圖片保持原始縱橫比輸入的高度數(shù)值自動調(diào)整；, Title:=請輸入圖片寬度, Default:=0) * 28.35myheight = Val(InputBox(Prompt:=單位為厘米(cm);如果輸入為 0,則圖片保持原始縱橫比輸入的寬度數(shù)值自動調(diào)整；, Title:=請輸入圖片高度, Default:=0) * 28.35調(diào)整嵌入式圖形

3、Dim pic As In li neShapeFor Each pic In ActiveDocume nt. In li neShapesIf mywidth = 0 Thenpic.Height = myheight pic.ScaleWidth = pic.ScaleHeightElseIf myheight = 0 Then pic.Width = mywidth pic.ScaleHeight = pic.ScaleWidthElse pic.Width = mywidth pic.Height = myheightEnd IfNext 調(diào)整浮動式圖形 Dim tu As Shap

4、eFor Each tu In ActiveDocument.ShapesIf mywidth = 0 Then tu.Height = myheightElseIf myheight = 0 Then tu.Width = mywidthElse tu.LockAspectRatio = msoFalse tu.Width = mywidth tu.Height = myheightEnd IfNextApplication.ScreenUpdating = True 恢復(fù)屏幕更新End SubSub 浮于文字上方 ()Dim oShape As Variant, tu As Shape,

5、iApplication.ScreenUpdating = False 關(guān)閉屏幕更新 On Error Resume Next調(diào)整嵌入圖形為浮于文字上方，并旋轉(zhuǎn)90 度For Each oShape In ActiveDocument.InlineShapes Set oShape = oShape.ConvertToShape ActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type = 3 (去除 .Zorder 行 .WrapFormat .Type = shapeType 四周 形 .WrapFormat.Type

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

7、形 改為 .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 NextFor Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.Conve

8、rtToShapeActiveDocument.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 NextIf Ms

9、gBox(Y 將圖片由嵌入式轉(zhuǎn)為浮動式 ,N 將圖片由浮動式轉(zhuǎn)為嵌入式 , 68) = 6 Then shapeType = Val(InputBox(Prompt:= 請輸入圖片版式 :0=四周型 ,1=緊密型 , & vbLf & _ 3=襯于文字下方 ,4=浮于文字上方 , Default:=0)For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeWith oShapeSelect Case shapeTypeCase 0, 1.WrapFormat.Type = shapeTypeCase 3.WrapFormat.Type = 3.ZOrder 5Case 4.WrapFormat.Type = 3.ZOrder 4Case ElseExit SubEnd Select.WrapFormat.AllowOverlap = FalseEnd WithNextElseFor Each oShape In ActiveDocu