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

《用宏批量调整word中图片版式、大小、方向》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Sub图片对齐()1Sub图片大小()1Sub浮于文字上方()3Sub浮于文字上方()3Sub连续()4Sub版式转换()4Sub图片方向()5Sub图片对齐()Application.ScreenUpdating=False'关闭屏幕更新DimnOnErrorResumeNextForn=1ToActiveDocument.Shapes.CountActiveDocument.Shapes(n).SelectSelection.ShapeRange.RelativeHorizontalPosition=_wd

2、RelativeHorizontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition=_wdRelativeVerticalPositionMarginSelection.ShapeRange.Left=wdShapeRightSelection.ShapeRange.Top=wdShapeBottomSelection.ShapeRange.LockAnchor=FalseSelection.ShapeRange.LayoutInCell=

3、TrueSelection.ShapeRange.WrapFormat.AllowOverlap=FalseSelection.ShapeRange.WrapFormat.Side=wdWrapBothNextApplication.ScreenUpdating=True'恢复屏幕更新EndSubSub图片大小()OnErrorResumeNextDimmywidthDimmyheightApplication.ScreenUpdating=False'关闭屏幕更新mywidth=Val(InputBox(Pr

4、ompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；",Title:="请输入图片宽度",Default:="0"))*28.35myheight=Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；",Title:="请输入图片高度",Default:="0"))*28.35'-----------------------------------------------------

5、-------------'调整嵌入式图形DimpicAsInlineShapeForEachpicInActiveDocument.InlineShapesIfmywidth="0"Thenpic.Height=myheightpic.ScaleWidth=pic.ScaleHeightElseIfmyheight="0"Thenpic.Width=mywidthpic.ScaleHeight=pic.ScaleWidthElsepic.Width=mywidthpic.Height=myheightEndI

6、fNext'调整浮动式图形DimtuAsShapeForEachtuInActiveDocument.ShapesIfmywidth="0"Thentu.Height=myheightElseIfmyheight="0"Thentu.Width=mywidthElsetu.LockAspectRatio=msoFalsetu.Width=mywidthtu.Height=myheightEndIfNextApplication.ScreenUpdating=True'恢复屏幕更新EndSubSub浮于文字上方(

7、)DimoShapeAsVariant,tuAsShape,iApplication.ScreenUpdating=False'关闭屏幕更新OnErrorResumeNext'调整嵌入图形为浮于文字上方，并旋转90度ForEachoShapeInActiveDocument.InlineShapesSetoShape=oShape.ConvertToShapeActiveDocument.InlineShapes(i).SelectWithoShape.WrapFormat.Type=3'(去除.Zorder行

8、.WrapFormat.Type=shapeType四周形.WrapFormat.Type=wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder4'4浮于文字上方5衬于下方.Rotation=-90#EndWithNext'调整其它图形为浮于文字上方，并旋转90度ForEachtuInActiveDocument.ShapesActiveDo