word批处理图片尺寸 宏代码
Word采用宏命令批量调整照片大小方法
Word采用宏命令批量调整照片大小方法
Word采用宏命令批量调整照片大小方法
1.点击“视图”菜单，找到“宏”。
点击“录制宏”，进入“录制宏”操作面板后，为宏定义一个名字，之后点击“确定”按钮。
2.再次找到“宏”，点击“停止录制”。
3.点击“查看宏”，选择定义好的宏的名字，点击右侧的“编辑”按钮。
4.进入VB编辑器后，输入如下命令后，点击“保存”。
5.若照片有不同的大小要求，可在命令中的“（）”内调整照片的宽度及高度。
6.将照片批量插入到WORD文档中，要求照片必须为“嵌入式”。
7.点击“宏”，进入操作面板后点击“运行”按钮，宏命令就得到了
执行，插入到文档中的图片就会按照在宏命令中设置的大小进行批量调整。
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批量修改图片大小——固定长宽篇这部分要说的是把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），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）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倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！还是弄不明白的朋友请留下你的问题和E-mail地址！。
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 '设置图片高度为 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中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：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倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！还是弄不明白的朋友请留下你的问题和E-mail地址！。
word中批量设置图片的高度和宽度
word中批量设置图片的高度和宽度
word中批量设置图片的高度和宽度:
==============================
首先通过插入图片，将多张图片同时插入word中，
在word中按Alt+F11组合键,进入VBA模式
在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
把下面代码复制,粘贴进去.
更改数值, 改一下宽度和高度数值(10为图片宽度或高度（厘米）)其他的数值不用动，点运行(类似播放按钮.)或F5,即可设置文档中全部图片
如果想只更改高度，宽度按照比例缩放，那么可以将下面的代码的第2行和第6行删掉
Sub Macro()
Mywidth=10
Myheigth=10
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub。
批量处理图片宏代码
ActiveDocument.Shapes(n).Width = 5 '
Next n
End Sub
代码4 不锁纵横比 （这个有效。代码同2）
Sub setpicsize() 'Resume Next '
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '
ActiveDocument.InlineShapes(n).Height = 320 '
ActiveDocument.InlineShapes(n).Width = 425 '/经调试后，此处高度和宽度必须很宽，代码内分度值为像素，并非厘米，因为Inline的缘故？/
ActiveDocument.InlineShapes(n).Width =5 *28.35 '/同上，前面的3.5和5.5可以理解为像素/
Next n
End Sub
代码5 仅仅解除纵横比
Sub () '
Dim n '
On Error Resume Next '
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes
'iShape.Width = CentimetersToPoints(15)
Next
End Sub
代码2 不锁定纵横比 （有效）
Sub setpicsize() '
Dim n '
WORD中图片大小统一调整宏设置方法
调整 WORD图片为统一尺寸方法：新建宏
1、打开WORD,Alt+F8调出宏编辑窗口
2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：
ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）
Next j
End Sub
复制后图像如下：
然后关闭。
下面运行宏即可将WORD中所有图片大小进行统一
运行之后就会发现所有图片大小都一致了。
Sub 调整图片大小() '
' 调整图片大小 宏'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为s
ActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）
Word批量修改图片大小
Word批量修改图片大小
展开全文
声明：我下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解！当然~~这不是必需的，只要跟着我的图文教程走，不知道什么是宏，不知道什么是VB也可以！
word批量修改图片大小——固定长宽篇
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！
1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）
word批量修改图片大小——按比例缩放篇
这部分要说的是把word中的所有图片按比例缩放！
具体操作同上，只是代码部分稍做修改，代码如下：
虽然我的代码不是好代码，但确实能解决我的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！。
Word批量修改图片大小
Word批量修改图片大小湖北宜昌张梁桂一、固定长宽篇本篇介绍把word中的所有图片按固定的长和宽进行修改。
1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名（如setpicsize），宏名自己起，能记住就行。
2、宏名起好后，单击“创建”进入Visual Basic 编辑器，将如下代码复制到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中的所有图片按比例进行缩放。
具体操作同固定长宽篇，只是代码部分稍有修改。
代码如下：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以下跟第一个一样功能，但多了输入框，可以自己修改大小Sub 设置图片大小() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误Dim sPrompt As String, sTitle As String, sDefault As String, PP1 As StringsPrompt = "设置图片宽度(单位:PX): "sTitle = "输入数字"sDefault = "300"PP1 = InputBox(sPrompt, sTitle, sDefault)Dim sPrompt1 As String, sTitle1 As String, sDefault1 As String, PP2 As StringsPrompt1 = "设置图片宽度(单位:PX): "sTitle1 = "输入数字"sDefault1 = "300"PP2 = InputBox(sPrompt1, sTitle1, sDefault1)For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = PP1 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = PP2 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = PP1 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = PP2 '设置图片宽度 300pxNext nEnd Sub。
批量处理word中图片
批量处理word中图片主要实现功能是：自动打开一个硬盘，读者自己选择自己要插入的多张图片（量越大越有效果），在代码中修改好每张图片的大小，程序会将每张图片处理为相同大小，同时还可以将图片名字显现在每张图片的下方。
操作步骤：第一步，新建一个word文档；第二步，按ALT+F11键，打开VBA（此界面就是用来编写代码）；第三步，找到你要处理的word文档，单击右键——插入——模块，将命令复制粘帖到对话框中，单击运行即可；具体操作如下：方法一、批量处理图片大小代码如下：（只需要修改宽度和高度）Sub FormatPics()Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapesIf iSha.Type = wdInlineShapePicture TheniSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersToPoints(24.66) '宽5CMiSha.Height = CentimetersToPoints(13.7) '高5CMEnd IfNextEnd Sub方法二、批量处理图片大小（自动为图片命名）代码如下：Sub InsertPic()Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = "I:\"If .Show = -1 ThenFor Each fn In .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)mypic.LockAspectRatio = msoFalse '不锁定纵横比mypic.Width = CentimetersToPoints(24.66) '宽5CMmypic.Height = CentimetersToPoints(13.7) '高5CMIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn) '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "\" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4)End Function效果缩略图（可以一页一张，也可以一页多张，可以横放也可以竖排，取决于读者的需要）。
Word中批量设置图片大小
Word中批量设置图片大小（包括纵横比批量设置）
有时候需把大量的图片插入到office WORD中，由于图片大小不同，而且图片的纵横比默认都是锁定的，不方便一张一张调整很慢，查询了下，有以下这个方法可以快速批量改变图片大小。
版本要求是word2003等:
一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片
Sub Macro()
Mywidth=10 ‘10为图片宽度（厘米）
Myheigth=10 ‘10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub。
利用宏批量修改WORD中的图片尺寸
1、打开被修改文档。
2、点击工具——宏——宏
3、随便起个名字，然后点创建，注意，名字不能是数字
4、打开附件中的宏内容.txt 文件，复制其中的内容
粘贴在宏编辑器里，注意，上面的Sub abc()是你起的名字，可能不同
5、粘贴后的内容应该是这样的
6、粘贴好后，点击保存图标，保存编辑的内容
7、切换回被编辑WORD文档，打开宏命令栏，点击运行
8、如果尺寸不合适，切换回宏编辑器，修改
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
的数值，当心不要把“设置图片….”文字前面的单引号删除掉
设置好后，点击保存图标，然后切换回WORD文档打开宏命令栏运行看效果。
Word中利用宏批量修改图片大小的操作技巧
Word中利用宏批量修改图片大小的操作技巧最近发现，以前存了很多图片在word，但图片的很大，有的很小，规格都不一样，堆在文档里面很难看，为了美观，今天，店铺就教大家在Word中利用宏批量修改图片大小的操作技巧。
Word中利用宏批量修改图片大小的操作步骤大家看看我是怎么样利用宏批量修改word中所有图片大小，先打开存有图片的word。
Word中利用宏批量修改图片大小的操作步骤图2在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”。
Word中利用宏批量修改图片大小的操作步骤图3随后弹出“宏”对话框，在宏名中输入setpicsize。
Word中利用宏批量修改图片大小的操作步骤图4宏名起好了，单击“创建”按钮进入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 SubWord中利用宏批量修改图片大小的操作步骤图5关闭入Visual Basic 编辑器，返回word，重新选择“工具”--“宏”--“宏”(或者直接按Alt+F8)，再次进入宏的界面，在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小，注意这里把图片大小都修改成Height = 400，Width = 300，这个规格大家可以需要改变的~Word中利用宏批量修改图片大小的操作步骤图6。