Word宏：Word中的图片批量统一大小及同比例缩放(图)

合集下载

word中批量修改图片大小

这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！方法一：这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行!2、宏名起好了，单击"创建"进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n ' 图片个数On Error Resume Next ' 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n)。

Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n)。

Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n)。

Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n)。

Width = 300 '设置图片宽度300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8)，再次进入宏的界面，选择刚才编辑好的宏，并单击"运行"按钮，就可以了!(图片多时，可能会花一些时间)方法二：1、在word中按alt+f11组合键，进入VBA模式2、在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块3、把下面代码复制，粘贴进去。

4、更改数值，改一下宽度和高度数值(10)，点运行(类似播放按钮。

将Word文档中所有图片统一修改大小，无论多少张都可以一键搞定！

将Word⽂档中所有图⽚统⼀修改⼤⼩，⽆论多少张都可以⼀键搞定！我们平时在写论⽂，或者给长篇⽂档进⾏排版时，难免会对插⼊的图⽚进⾏格式设置。

⽐如说图⽚的环绕格式、图⽚的尺⼨⼤⼩等。

⽽⽂档⾥⾯的图⽚⼜⾮常多，⼀张张去修改确实很⿇烦。

有什么⽅法可以⼀键修改图⽚的环绕格式、图⽚的尺⼨⼤⼩呢？这个问题也是这⼏天粉丝经常问我的⼀个问题。

下⾯我给⼤家讲解详细的步骤，记得要转发收藏⼀份哦~具体操作步骤如下：第⼀步：在插⼊图⽚之前先将图⽚环绕格式设置为“四周型”或“浮于⽂字上下⽅”。

1、⾸先我们应该知道Word⽂档插⼊的图⽚默认是“嵌⼊型”的，这种格式图⽚不能任意拖动拖动。

2、点击左上⾓“⽂件” -- 点击“选项”。

3、弹出“Word选项”对话框 -- 点击“⾼级”选项卡 -- 在右边找到“剪切、复制和粘贴” -- 将下⽅的“将图⽚复制/粘贴为”选择“四周型” -- 点击“确定”按钮。

4、设置完成之后，我们以后插⼊的图⽚默认就是“四周型”的了，⽽且图⽚可以随意的拖动，看看动图演⽰。

第⼆步：激活“选择多个对象”这个功能按钮。

1、我们都知道在Excel中可以通过对象选择表格中的所有图⽚。

当然Word也可以，你只需激活下图中的“选择多个对象”这个功能按钮即可。

2、点击左上⾓“⽂件” -- 点击“选项”。

3、弹出“Word选项”对话框 -- 点击“⾃定义功能区” -- “从下列位置选择命令”选择“不在功能区中的命令” -- 找到“选择多个对象” -- 点击“添加”按钮添加到“开始”选项卡的“新建组”中 -- 点击“确定”按钮即可。

4、设置完成之后可以看到在“开始”选项卡下多了⼀个“选择多个对象”的功能。

看看动图演⽰。

以上的2步设置完成之后，以后你插⼊的图⽚都是“四周型”格式，⽽且可以⼀次性选中⽂档中的所有图⽚。

第三步：如果你的Word⽂档后缀名是“.docx”，修改为“.doc”。

因为“选择多个对象”是早期的功能，不⽀持“.docx”后缀格式的，只⽀持“.doc”格式的。

宏命令将图片批量替换成统一大小

宏命令将图片批量替换成统一大小步骤：1.点击【文件】-【选项】，在弹出的窗口中选择【自定义功能区】，勾选开发工具选项后，点击【确定】，如下图：2.会在菜单上方出现开发工具的相关功能菜单，选择【开发工具】，点击【宏】，如下图：3.点击【宏】后，弹出提示框，在宏名处输入宏名“setpicsize”点击创建按钮，如下图：4.在弹出的VBA窗口中将如下代码复制到其中，如下图：统一替换图片大小的VBA代码如下（单引号后面的内容为备注）：'1.改变图片大于14.5cm的宽度'注：高跟宽的数值单位为px,而word中的单位为cm（1px约等于0.0352cm）Sub setpicsize()Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapespicheight = ActiveDocument.InlineShapes(j).Height '高度赋值picwidth = ActiveDocument.InlineShapes(j).Width '宽度赋值If (ActiveDocument.InlineShapes(j).Width > 375 And ActiveDocument.InlineShapes(j).Width < 415) Then '判断图片宽度范围，将宽度大于13.23cm的图片，小于14.68的图片统一缩放ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度ElseIf (ActiveDocument.InlineShapes(j).Width > 417) Then '判断图片宽度范围，将宽度大于14.7cm的图片统一缩放ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度End IfNext jEnd Sub注意：（1）修改图片尺寸时，代码运行前需要根据实际情况进行修改图片尺寸的大小范围限制代码，图中标注处所示（2）修改图片尺寸时，需计算修改的图片的宽高值，因为图片的高跟宽的数值单位为px，而word中的单位为cm，根据每台电脑不同的分辨率，1px约等于0.0352cm （3）图片替换之前文档最好先保存副本，因为运行宏后的文档无法撤销操作，如果操作错误，只能通过关闭文档时，选择不保存后，重新打开（4）代码可用英文状态下的单上引号进行备注，删掉不影响代码的运行（5）如修改图片尺寸的代码无需修改，可直接在点击【宏】后，在弹出提示框中选择宏名“setpicsize”，点击运行按钮进行操作（6）一次性修改的文档中图片过多时，文档会未响应一小段时间，请耐心等待即可5.点击运行按钮，运行统一替换图片尺寸代码。

Word如何批量统一插入文档中的图片尺寸大小

Word如何批量统一插入文档中的图片尺寸大小
有个朋友问在Word的表格里面插入十几张图片，在一个单元格里设定好的图片的大小，怎么能够将这个尺寸应用于其他的图片？其实可以通过这个办法来实现。

即，先导入所有的图片，然后按住Ctrl键，把他们都选上。

再在图片上面点击右键，选择设置图片格式，然后再选择大小栏，先把最下面的两个对勾去掉，然后在在宽度和高度栏写入数值，最后确定就行。

这样所有的照片就可以成为统一的尺寸了。

操作简述首先新建Word文档，并设置页边距，这个页边距和以往有所不一样，它的大小决定着图片的尺寸。

切记，页边距越大图片越小。

接下来就是插入预先准备好的图片，插入好之后执行文件---另存为网页命令，并选择保留路径，确定之后你会发现，在指定路径的位置生成了一个文件夹，而这个文件夹中的所有图片都是统一大小尺寸的，如假设不信，你可以看看哦。

操作步骤文件---页面设置---页边距这里的左右页边距就是你要让自己的图片变成多大，页边距越大，图片之后就会越小下面插入预先准备好的图片看看，原本大小不一的图片瞬间整齐了下面要做的事情就是把这些图片从word导出来文件---另存为网页---网页然后关掉word文件，你就可以看到旁边多了一个文件夹，里面就是刚才你调整过大小的图片.接下来插入图片就可以看到统一大小的图片了。

Word如何批量统一插入文档中的图片尺寸大小。

word中一次性调整所有图片大小

从网上下载的图片一般都是大小不一致的。在这种情况下，可以通过一些看图软件来统一图片的大小。下面，告诉大家一个使用简单工具快速批量调整图片大小的方法。这个工具就是大家经常使用的office word。
其实是一个很简单的办法，方便又快捷。通过调整word页面的宽度，就可以自动调整载入图片的大小，又不会降低图片的质量。这么简单的办法，让我们一起来学习吧！
3.点击word窗口中“插入”标签中的图片按钮，会弹出对话框。在对话框中选择需要进行调整大小的图片（可批量导入图片），图片载入后，word就会自动对图片大小进行“网页”类型。进入网页保存后的图片文件夹，里面的图片就是统一调整大小之后的图片了
步骤
1.打开word软件。在上面的工具栏中单击“页面布局”。在弹出的工具栏中单击“页边距“，就可以自定义页边距了。单击自定义页边距，弹出窗口如图所示。
2.在页面设置中对 ”页边距“的“左”和“右”选项进行设置。左右边距之间的距离就是将要调整图片的最终宽度大小。此处可根据个人需求自定义设置。

批量设置word中图片的大小

批量调整word 中图片大小一、无条件修改图片大小1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏命名如下：setpicsize内容如下：Sub setpicsize() '设置图片大小Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 100 '设置高度ActiveDocument.InlineShapes(j).Width = 100 '设置宽度Next jEnd Sub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽100px，高100px二、判断条件后进行修改Sub setpicsize()'设置图片大小Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes If ActiveDocument.InlineShapes(j).Width > 480 Then '如果宽度大于480 ActiveDocument.InlineShapes(j).Width = 400 '设置宽度为400End IfNext jEnd Sub三、把word中的所有图片修改成固定并且相同的长和宽1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名可自己定义。

2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n'图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了。

Word文档批量把所有图片调整为相同大小，这个方法简单又实用

Word文档批量把所有图片调整为相同大小，这个方法简单又
实用
在我们的工作中，编辑Word文档的时候，如何将插入的图片，批量调整为相同的大小、相同的尺寸呢？如果你一个个修改这些图片，那就太浪费时间了，今天就跟大家分享一个简单又实用的方法。

1.首先打开Word文档，点击【文件】-【选项】-【高级】，找到“将图片插入/粘贴为”，选择【四周型】。

（PS：图片要求为非嵌入式的任何一种环绕方式都可以）
2.然后再次点击【文件】-【选项】-【自定义功能区】，先选择【所有命令】，再找到【选择多个对象】，选中后点击【添加】到右边的自定义功能区。

3.接着需要将Word格式另存为Doc，在键盘上按下功能键【F12】另存为，保存类型改为：“Word97-2003文档*.doc”。

4.最后我们就可以一键批量修改图片大小了，在Word文档里插入大量图片，点击【选择多个对象】快捷按钮，右键图片【设置自选图形/图片格式】，修改图片高度、宽度，点击【确定】，图片尺寸瞬间统一。

这个方法是不是比一张张修改得快多了？如果你的图片不是用于Word文档，也需要修改图片尺寸，可以借助【迅捷图片转换器】。

•在批量处理中找到「批量剪裁」功能；
•一次性最多支持批量修改50张图片；
•有固定的比例可以选择也可以自定义。

当图片体积太大，还可以进行批量「图片压缩」，添加图片后设置压缩模式、清晰度、分辨率、输出格式，以及压缩后的图片大小。

以上就是把所有图片调整为相同大小的方法，简单又实用，希望可以在工作中帮到你。

如何统一调整WORD文档中的图片尺寸

如何统一调整WORD文档中的图片尺寸新建宏1、打开WORD,Alt+F8调出宏编辑窗口2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：Word中调整图片大小的宏其中：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 160 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 120 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 160 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 120 '设置图片宽度300px Next n End SubSub 调整图片大小() '' 调整图片大小宏'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）Next j End Sub图1然后关闭。

word宏命令等比例放大缩小所有图片或指定更改图片大小

需要将一篇word文档中的所有图片全部缩小比例，怎么办？一张张改太麻烦了。

可以用Word里宏命令的批量处理解决。

需要注意的地方就是注意厘米与像素的换算关系。

一般情况下1厘米=28px 。

这个换算关系其实可以用计算器计算出来。

计算公式为图片改变之后的像素除以改变之后图片的大小厘米。

固定长宽篇代码Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next'忽略错误For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300'设置图片宽度300pxActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '设置图片居中Next nFor n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300pxNext nEnd Sub说明：1.VB语言中对图片大小的设置是以原图的长宽等比在缩放，统一设置时默认优先对齐所有图片的“宽度”。

2.ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment=wdAlignParagraphCenter '设置图片居中可以让图片居中，Left、Right可以分别设置左对齐、右对齐。

批量处理word文档图片大小

声明：我下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解！当然~~这不是必需的，只要跟着我的图文教程走，不知道什么是宏，不知道什么是VB也可以！word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 105 '设置图片高度为105px ActiveDocument.InlineShapes(n).Width = 105 '设置图片宽度105pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 105 '设置图片高度为105pxActiveDocument.Shapes(n).Width = 105 '设置图片宽度105pxNext nEnd Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1. 1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub虽然我的代码不是好代码，但确实能解决我的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！。

WORD中图片大小统一调整宏设置方法

调整 WOR 图片为统一尺寸方法：新建宏1、打开 WORD,Alt+F8调出宏编辑窗口2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：Sub 调整图片大小（）’'调整图片大小宏’Dim j '计数图片个数For j = 1 To ActiveDocument.lnlineShapes.Count '文件中图片总个数，图片类型为 inlineshapesActiveDocument.lnlineShapes （j ）.Height = 328 ' 设置高度（28.4 像素/ 厘米）ActiveDocument.lnlineShapes （j ）.Width = 457 ' 设置宽度（28.4 像素/ 厘米）Next jEnd Sub 复制后图像如下: ;卫1 Bauc far Appliedion!t - hlarrn 謝如擲站氯人（D 槪t© 谒就曲运LR'J ）祈棹館㈤ ^□（W ）看帥垃儿-_ 口汨鼻卜止丄N ②芳U ©齐2 .朝Lxll --------------------------------------------------------------------------------' u u ■»11 - -、T • : V a ”匕」丘 I rasr然后关闭。

Yard 刃凱◎oil 头更椰Frvjecl 偏: E M i End Subf j 1 =0 Xct s vt3c-cw 4nt . Id btti^LuF « £. C PUht ictiTelaciiReiLt. llLiaeSba^es I^LS L I = 3SsS ifl lalsaeKftijis G J .^i itl * K n f!F 面运行宏即可将 WOR 中所有图片大小进行统^nivF %Hi 百朗⑺书氓栢丈社说明a运行之后就会发现所有图片大小都一致了。

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

（完整word版）用宏批量调整word中图片版式、大小、方向Sub 图片对齐() (1)Sub 图片大小() (1)Sub 浮于文字上方() ................................................................................................... 错误!未定义书签。

Sub 浮于文字上方() . (4)Sub 连续() (4)Sub 版式转换() (4)Sub 图片方向() (5)Sub 图片对齐()Application.ScreenUpdating = False '关闭屏幕更新Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.CountActiveDocument.Shapes(n).SelectSelection.ShapeRange.RelativeHorizontalPosition = _wdRelativeHorizontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition = _wdRelativeVerticalPositionMarginSelection.ShapeRange.Left = wdShapeRightSelection.ShapeRange.Top = wdShapeBottomSelection.ShapeRange.LockAnchor = False/doc/6c8516769.html,youtInCell = TrueSelection.ShapeRange.WrapFormat.AllowOverlap = FalseSelection.ShapeRange.WrapFormat.Side = wdWrapBothNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 图片大小()On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False '关闭屏幕更新mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35'------------------------------------------------------------------'调整嵌入式图形Dim pic As InlineShapeFor Each pic In ActiveDocument.InlineShapesIf mywidth = "0" Thenpic.Height = myheightpic.ScaleWidth = pic.ScaleHeightElseIf myheight = "0" Thenpic.Width = mywidthpic.ScaleHeight = pic.ScaleWidthElsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeIf mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElsetu.LockAspectRatio = msoFalsetu.Width = mywidthtu.Height = myheightEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, tu As Shape, iApplication.ScreenUpdating = False '关闭屏幕更新On Error Resume Next'调整嵌入图形为浮于文字上方，并旋转90度For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertT oShapeActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4 '4浮于文字上方5衬于下方.Rotation = -90#End WithNext'调整其它图形为浮于文字上方，并旋转90度ActiveDocument.Shapes(i).SelectWith tu.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.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.ConvertT oShapeActiveDocument.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 MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _"3=衬于文字下方,4=浮于文字上方", Default:=0)) For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertT oShapeWith 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 ActiveDocument.ShapesoShape.ConvertToInlineShapeNextEnd IfEnd SubSub 图片方向()Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(n).IncrementRotation -90# Next nEnd Sub。

Word宏：Word中的图片批量统一大小及同比例缩放(图)

Word宏：Word 中的图片批量统一大小及同比例缩放(图)有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。

下面的方法就是告诉我们如何来实现很多的图片统一大小。

实现代码：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n End Sub使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏命令。

操作步骤如下：1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。

拼写和谩法窈一一. 信息检素（M ）. . - A1L+单击谱舌田）字数恭计地），一. 自动第写摘腰（Jp.-.语音始FT J n lift 寻；1。

word批量导入、修改图片大小和压缩图片

[手把手]word批量导入、修改图片大小和压缩图片•/article/fdbd4277145ebbb89e3f 48d1.html工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。

下面请跟随我，学习批量导入、修改图片尺寸和压缩图片的方法，让你告别重复工作。

•Microsoft Word 20071.1将所有需要导入的图片放入同一文件夹，修改文件名，使其排列顺序符合我们要求。

2.2打开word，依次点击：插入→图片3.3在弹出的窗口，“查找范围”框里找到需要插入图片所在文件夹，方法一：选中第1张图片，按住键盘Shift键，再选中最后一张图片。

方法二：选中任意一张照片，同时按键盘“Ctrl”键和字母“A”键，全选点击“插入”4. 4效果如图批量修改图片尺寸1.1接上面的例子。

方法一：在word软件界面中依次点击：开发工具→宏方法二：同时按键盘“Alt”键和“F8”键（后面简称Alt+F8）弹出宏创建窗口2.2在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”点击创建3.3弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为5cm （1cm等于28.35px）ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度4cmNext nEnd Sub'其中图片本例中图片尺寸为5cm和4cm4.4点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键等待一会儿……（等待时间取决于你插入图片的多少和你电脑的运算速度）……5.5待标题栏上方的[正在运行]消失后，点击右上角小叉关闭“Microsoft Visual Basic”窗口。