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

1、Sub图片方向()Sub图片对齐()Applicati on .Scree nU pdat ing = False 关闭屏幕更新Dim nOn Error Resume NextActiveDocume nt.Shapes( n).Selectoriz on talPositi on = _wdRelativeHoriz on talPositi onM arginwdRelativeVerticalPositi onMarginNextApplication.ScreenUpdating = True 恢复屏幕更新End SubSub图片大小()On Error Resume NextDim

2、 mywidthDim myheightApplicati on .Scree nU pdat ing = False 关闭屏幕更新，宽度根据，高度根据mywidth = Val(InputBox(Prompt:=单位为厘米(cm);如果输入为 0，则图片保持原始纵横比输入的高度数值自动调整；, Title:=请输入图片宽度, Default:=0) * 28.35myheight = Val(InputBox(Prompt:=单位为厘米(cm);如果输入为 0,则图片保持原始纵横比输入的宽度数值自动调整；, Title:=请输入图片高度, Default:=0) * 28.35调整嵌入式图形

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 调整浮动式图形 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 恢复屏幕更新End SubSub 浮于文字上方 ()Dim oShape As Variant, tu As Shape,

5、iApplication.ScreenUpdating = False 关闭屏幕更新 On Error Resume Next调整嵌入图形为浮于文字上方，并旋转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调整其它图形为浮于文字上方，并旋转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 恢复屏幕更新End SubSub 浮于文字上方 ()Dim oShape As Variant, iApplication.ScreenUpdating = False 关闭屏幕更新On Error Resume NextFor Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.Conve

8、rtToShapeActiveDocument.InlineShapes(i).Select 选中图片With oShape.ZOrder 4选中图片版式调为浮于文字上方.Rotation = -90#选中图片向左旋转 90 度End WithNextApplication.ScreenUpdating = True 关闭屏幕更新End SubSub 连续 ()Call 浮于文字上方Call 图片大小Call 图片对齐End SubSub 版式转换 ()Dim oShape As Variant, shapeType As WdWrapTypeOn Error Resume NextIf Ms

9、gBox(Y 将图片由嵌入式转为浮动式 ,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