批量修改图片尺寸的宏命令
word批处理图片尺寸 宏代码
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 350 '设置图片高度为99px ActiveDocument.InlineShapes(n).Width = 650 '设置图片宽度71px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 350 '设置图片高度为99px ActiveDocument.Shapes(n).Width = 650 '设置图片宽度71px
Next n
ALT+F8 创建宏并命名，嵌入上短语，后单击运行即可。
word批量修改图片大小++宏编程实现
word批量修改图片大小宏编程实现word 批量修改图片大小——固定长宽篇
这部分要说的是把 word 中的所有图片修改成固定的并且相同的长和宽～1、打开 word，工具,宏,宏(或者直接按 Alt+F8)进入宏的界面，如下面所示，输入一个宏名，
能记住就行～宏名自己起，
2、宏名起好了，单击“创建”进入 Visual Basic 编辑器，输入如下代码并保存:
Sub setpicsize() '设置图片大小
Dim n '图片个数
Resume Next '忽On Error略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub
(以上这段代码以像素为单位修改图片)
或:
Sub setpicsize()
Dim iSha As InlineShape
批量更改图片大小
如何在word中批量修改图片大小
默认分类2010-09-02 20:38:03 阅读168 评论0 字号：大中小订阅
固定长宽篇
这部分要说的是把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 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）
WORD中图片大小统一调整宏设置方法.pdf
调整WORD图片为统一尺寸方法：新建宏
1、打开WORD,Alt+F8调出宏编辑窗口
2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：
Sub 调整图片大小() '
' 调整图片大小宏'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）
ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）
Next j
End Sub
复制后图像如下：
然后关闭。
下面运行宏即可将WORD中所有图片大小进行统一
运行之后就会发现所有图片大小都一致了。
WORD中图片大小统一调整宏设置方法
调整WORD图片为统一尺寸方法：新建宏
1、打开WORD,Alt+F8调出宏编辑窗口
2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：
Sub 调整图片大小() '
' 调整图片大小宏'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）
ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）
Next j
End Sub
复制后图像如下：
然后关闭。
下面运行宏即可将WORD中所有图片大小进行统一运行之后就会发现所有图片大小都一致了。
批量设置word 里图片的大小及版式的技巧
批量设置word 里图片的大小及版式的技巧1.批量设置固定大小
工具-宏-新建
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 70 '设置图片高度为70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度80px
Next n
End Sub
运行即可
2.批量按比率缩小或放大
新建宏
Sub setpicsize() '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍Next n
End Sub
3批量将图片转成嵌入型
新建宏
Sub 图片转嵌入型()
一次性调整图片大小（宏设置）
一次性调整图片大小（宏设置）
一、按比例缩放
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape
.LockAspectRatio = msoTrue '不锁定纵横比
.ScaleHeight = 100
.ScaleWidth = 100
End With
Next
End Sub
二、固定长宽
Sub setpicsize()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersT oPoints(5) '宽5CM
iSha.Height = CentimetersT oPoints(5) '高5CM
End If
Next
End Sub
word批量改图片大小宏命令
Sub setpicsize()
Dim i
Dim Height, Weight
Height = 5.06 * 28.345 '*28.345代表单位为cm
Weight = 4.28 * 28.345 '*28.345代表单位为cm
On Error Resume Next '忽略错误
For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
Next i
For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
Next i
End Sub
【Word技巧】-如何用宏程序批量处理图片大小
Word技巧
如何用宏程序批量处理图片大小
1、统一图片大小+解除图片纵横比限制
Sub 图片统一大小() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '解除纵横比锁定
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为5cm（1cm 等于28.35px）
ActiveDocument.InlineShapes(n).Width = 5 * 28.35 ' 设置图片宽度5cm
Next n
End Sub
注：使用前要考虑各种特殊情况，如剪报中的logo也是会受到影响。
2、统一图片大小（不解除纵横比，可以仅限定宽或高）
Sub 统一图片大小()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(5)
iShape.Width = CentimetersToPoints(5)
Next
End Sub
以上代码直接ALT+F11 添加到宏程序中运行即可，标红部分可以自行修改
Word如何批量修改图片大小
Word如何批量修改图片大小
Word如何批量修改图片大小
Word批量修改图片大小要怎么批量修改?很多朋友在使用word 的时候不知道如何批量修改图片大小，下面就教大家word批量修改图片大小方法，不会的朋友收藏下吧，以备不时之需!
固定长宽方法：
步骤一、打开word，工具-宏-宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行!
步骤二、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px
Nextn
Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Nextn
End Sub
步骤三、返回word，工具-宏-宏(或者直接按Alt+F8)，再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了!(图片多时，可能会花一些时间)
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 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes（n）。Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes（n）。Width = 300 '设置图片宽度 300px
Next n
End Sub
3、返回word,工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击"运行"按钮，就可以了！（图片多时，可能会花一些时间）
方法二：
1、在word中按alt+f11组合键，进入VBA模式
WORD中图片大小统一调整宏设置方法
调整WORD图片为统一尺寸方法：新建宏
1、打开WORD,Alt+F8调出宏编辑窗口
2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：
Sub 调整图片大小() '
' 调整图片大小宏'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）
ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）
Next j
End Sub
复制后图像如下：
然后关闭。
下面运行宏即可将WORD中所有图片大小进行统一运行之后就会发现所有图片大小都一致了。
Word中进行批量修改图片的大小和缩放比例的操作方法
Word中进行批量修改图片的大小和缩放比例的操作方法
最近遇到一个问题：需要将一篇word文档中的所有图片全部缩小比例。一张张改太麻烦了。今天，店铺就教大家在Word中进行批量修改图片的大小和缩放比例的操作方法。
Word中进行批量修改图片的大小和缩放比例的操作步骤
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!
1、打开word，工具-宏-宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行!
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px
Nextn
Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Nextn
成批修改图片大小法
成批修改图片法
WORD中方法一
用WORD的宏功能可以实现这一功能。宏是一系列Word 命令和指令，这些命令和指令组合在一起，形成了一个单独的命令，以实现任务执行的自动化。
首先，单击选定一张要改变尺寸的图片，并且勾选“视图/工具栏/图片”。然后执行：“工具（菜单）/宏/录制新宏”命令。在弹出的对话框中，选择将宏保存在“工具栏”，然后在弹出的“命令”选项卡中，将新建的宏命令拖到工具栏上松开（工具栏上会出现宏命令按钮），点击“关闭”，会出现一个录制宏的工具条，这时就可以录制宏了。
点击图片工具栏“设置图片格式”按钮，出现“设置图片格式对话框”，点“大小”选项卡，设置好图片的尺寸。
再点“工具（菜单）/宏/停止录制”命令宏就录制好了。
用的时候，单击选定图片，再点拖放到工具栏中宏命令就可以了。
WORD中的方法二
用宏可以轻松完成：
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub
photoshop软件
photoshop软件中有一项功能就是动作（Actions）在面版中可以看见，首先打开photoshop，再打开你想修改的所有照片（一部分也可以），
word批量修改图片大小格式方框
1、打开word,工具-宏-宏(或者直接按Alt+F8)进
入宏的界面,如下面所
示,输入一个宏名,宏名自己起,能记住就行!宏名起好了,单击“创建”进入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 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
这样就可以了!
2.按alt+F11。然后在project右键插入模块,然后粘贴
Sub Macro()
Mywidth = 4.13
Myheigth = 5.69
For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth
批量修改图片大小
word批量修改图片大小
这两天在整文档，提交过来的文档里面有几百张图片，规格都不一样，堆在文档里面很难看。为美化文档，我决定将图片规范化，都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标，借助word的宏功能可以很好完成这一任务。
打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight
点击编辑按钮，输入下面红色字体标出的内容
Sub AdjustPicWidthAndHeight()
'
' AdvertisePublishAs 宏
' 将广告发布导出为 PDF 和 XPS
'Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比
ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px
ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Height = 5.72 * 28.35 '设置图片高度为5cm （1cm等于28.35px）
ActiveDocument.InlineShapes(n).Width = 7.62 * 28.35 '设置图片宽度4cm
Next n
End Sub
说明：
1、Alt+F8键，弹出的宏设置框内点击“创建”；
2、将以上文字复制到“Normal-NewMaccros”框内，替代原有文字，红色字5.72为高度，7.62为宽度，可自行设定；
3、点击上方运行