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

TOC\o"1-3"\h\z\uHYPERLINK\l"_Toc399424900"Sub图片对齐()PAGEREF_Toc399424900\h1HYPERLINK\l"_Toc399424901"Sub图片大小()PAGEREF_Toc399424901\h1HYPERLINK\l"_Toc399424902"Sub浮于文字上方()PAGEREF_Toc399424902\h3HYPERLINK\l"_Toc399424903"Sub浮于文字上方()PAGEREF_Toc399424903\h3HYPERLINK\l"_Toc399424904"Sub连续()PAGEREF_Toc399424904\h4HYPERLINK\l"_Toc399424905"Sub版式转换()PAGEREF_Toc399424905\h4HYPERLINK\l"_Toc399424906"Sub图片方向()PAGEREF_Toc399424906\h5Sub图片对齐()Application.ScreenUpdating=False'关闭屏幕更新DimnOnErrorResumeNextForn=1ToActiveDocument.Shapes.CountActiveDocument.Shapes(n).SelectSelection.ShapeRange.RelativeHorizontalPosition=_wdRelativeHorizontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition=_wdRelativeVerticalPositionMarginSelection.ShapeRange.Left=wdShapeRightSelection.ShapeRange.Top=wdShapeBottomSelection.ShapeRange.LockAnchor=FalseSelection.ShapeRange.LayoutInCell=TrueSelection.ShapeRange.WrapFormat.AllowOverlap=FalseSelection.ShapeRange.WrapFormat.Side=wdWrapBothNextApplication.ScreenUpdating=True'恢复屏幕更新EndSubSub图片大小()OnErrorResumeNextDimmywidthDimmyheightApplication.ScreenUpdating=False'关闭屏幕更新mywidth=Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；",Title:="请输入图片宽度",Default:="0"))*28.35myheight=Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；",Title:="请输入图片高度",Default:="0"))*28.35'------------------------------------------------------------------'调整嵌入式图形DimpicAsInlineShapeForEachpicInActiveDocument.InlineShapesIfmywidth="0"Thenpic.Height=myheightpic.ScaleWidth=pic.ScaleHeightElseIfmyheight="0"Thenpic.Width=mywidthpic.ScaleHeight=pic.ScaleWidthElsepic.Width=mywidthpic.Height=myheightEndIfNext'调整浮动式图形DimtuAsShapeForEachtuInActiveDocument.ShapesIfmywidth="0"Thentu.Height=myheightElseIfmyheight="0"Thentu.Width=mywidthElsetu.LockAspectRatio=msoFalsetu.Width=mywidthtu.Height=myheightEndIfNextApplication.ScreenUpdating=True'恢复屏幕更新EndSubSub浮于文字上方()DimoShapeAsVariant,tuAsShape,iApplication.ScreenUpdati