word调整图片代码

❶ 如何批量调整word的图片大小

分析：由于Word不能像excel一样多选图片，所以不能多选图片后统一缩放，所以考虑可以重复多次一样动作的宏功能：
打开视图-宏-输入一个名字-创建
2.输入以下代码，注意替换内有的内容和尺寸不是下面的5cm可以直接更改。
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
3.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。

❷ 求个批量更改多个WORD文档里的图片大小的代码

Sub 批量处理图片大小()

Myheigth = 5

Mywidth = 6

On Error Resume Next '忽略错误

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm

iShape.Width = 28.345 * Mywidth '设置图片宽度

Next

For Each Shape In ActiveDocument.Shapes

Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm

Shape.Width = 28.345 * Mywidth '设置图片宽度

Next

End Sub

❸ 如何一键设置word所有图片大小

• 打开Word文档后，鼠标右键点击第一张图片，选择“大小和位置”。

  

❹ word宏代码--选中的图片修改尺寸 代码，不是批量处理

1. VB语言中对图片大小的设置是以原图的长宽等比在缩放，统一设置时默认优先对齐所有图片的“宽度”。
2. ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '设置图片居中 可以让图片居中，Left、Right可以分别设置左对齐、右对齐。
3. 全文如果有“手动换行符”↓（代码是^l），设置某一部分居中时会影响漆上下部分的居中与否，因而，如果需要只对图片进行居中，则需先将全文中的↓替换成“段落标记符”（常规回车键，代码是^p）。
4. 这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
5. InlineShapes类型图片与Shapes类型图片的区别有待研究。
按比例缩放篇代码
Sub setpicsize() '设置图片大小 Dim n
Dim picwidth Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width

ActiveDocument.InlineShapes(n).Height = picheight * 0.6 '设置高度为0.6倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.6 '设置高度为0.6倍 ActiveDocument.Shapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n End Sub

❺ 如何一次性调节word所有图片

一次性调节word所有图片方法如下：

打开WORD，在”工具“菜单下，选择”选项“命令，在”选项“窗口中，”编辑”选项卡下，将插入图片的格式选择为“四周型”。在“插入”菜单中选择“图片”/“来自文件”，在“插入图片“对话框中选择要插入的图片。

然后在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”，使用“选中多个对象”，将所有插入的图片全部选中。双击任意一图片，在弹出的对话框中，就可以统一批量设置了，完成。

在word中，默认插入的嵌入式图片是不能批量统一设置，只有将默认修改为四周型后，才可以批量修改图片版式或大小。

用宏命令最省心：

代码1如下：

Sub setpicsize()

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

代码2如下：

Sub setpicsize()

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).Height = 300 '设置高度10.58cm

ActiveDocument.InlineShapes(j).Width = 510 '设置宽度17.99cm

Next j

End 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
'设置图片宽度
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
这样就可以了！

❼ 如何批量调整word中图片的分辨率大小

1、打开电脑，找到需要修改的Word文档，点击并进入