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

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

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

2、ontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition=_wdRelativeVerticalPositionMarginSelection.ShapeRange.Left=wdShapeRightSelection.ShapeRange.Top=wdShapeBottomSelection.ShapeRange.LockAnchor=FalseSelection.ShapeRange.LayoutInCell=TrueSelection.ShapeRange.W

3、rapFormat.AllowOverlap=FalseSelection.ShapeRange.WrapFormat.Side=wdWrapBothNextApplication.ScreenUpdating=True'恢复屏幕更新EndSubSub图片大小()OnErrorResumeNextDimmywidthDimmyheightApplication.ScreenUpdating=False'关闭屏幕更新mywidth=Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据

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

5、ActiveDocument.InlineShapesIfmywidth="0"Thenpic.Height=myheightpic.ScaleWidth=pic.ScaleHeightElseIfmyheight="0"Thenpic.Width=mywidthpic.ScaleHeight=pic.ScaleWidthElsepic.Width=mywidthpic.Height=myheightEndIfNext'调整浮动式图形DimtuAsShapeForEachtuInActiveDocument.ShapesIfmywidt

6、h="0"Thentu.Height=myheightElseIfmyheight="0"Thentu.Width=mywidthElsetu.LockAspectRatio=msoFalsetu.Width=mywidthtu.Height=myheightEndIfNextApplication.ScreenUpdating=True'恢复屏幕更新EndSubSub浮于文字上方()DimoShapeAsVariant,tuAsShape,iApplication.ScreenUpdating=False'关闭屏幕更新OnErrorR

7、esumeNext'调整嵌入图形为浮于文字上方，并旋转90度ForEachoShapeInActiveDocument.InlineShapesSetoShape=oShape.ConvertToShapeActiveDocument.InlineShapes(i).SelectWithoShape.WrapFormat.Type=3'(去除.Zorder行.WrapFormat.Type=shapeType四周形.WrapFormat.Type=wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOr

8、der4'4浮于文字上方5衬于下方.Rotation=-90#EndWithNext'调整其它图形为浮于文字上方，并旋转90度ForEachtuInActiveDocument.ShapesActiveDo