预览加载中，请您耐心等待几秒...

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

预览
1/6
2/6
3/6
4/6
5/6
6/6

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

Sub图片对齐()..........................................................................................................................................1Sub图片大小()..........................................................................................................................................1Sub浮于文字上方()...................................................................................................错误!未定义书签。Sub浮于文字上方()..................................................................................................................................4Sub连续()..................................................................................................................................................4Sub版式转换()..........................................................................................................................................4Sub图片方向()..........................................................................................................................................5Sub图片对齐()Application.ScreenUpdating=False'关闭屏幕更新DimnOnErrorResumeNextActiveDocument.Shapes(n).SelectorizontalPosition=_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'关闭屏幕更新'------------------------------------------------------------------'调整嵌入式图形DimpicAsInlineShapeIfmywidth="0"Thenpic.Height=myheightElseIfmyheight="0"Thenpic.Width=mywidthElsepic.Width=mywidthpic.Height=myheightEndIfNext'调整浮动式图形DimtuAsShapeForEachtuInActiveDocumIfmywidth="0"Thentu.Height=myheightElseIfmyheight="0"Thentu.Width=mywidthElsetu.LockAspectRatio=msoFalsetu.Width=mywidt