怎样批量调整word 图片大小

1.怎样批量调整word 图片大小

我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。

1、Alt+F8调出宏编辑窗口

2、点创建按钮，创建新宏，setpicsize，内容如下：

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

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

ActiveDocument.InlineShapes(j).Height = 362 '设置高度

ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度

Next j

End Sub

3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

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

If ActiveDocument.InlineShapes(j).Width > 480 Then

ActiveDocument.InlineShapes(j).Width = 400 '设置宽度

End If

Next j

End Sub

2.word里面怎么调整图片大小

在Word里面，调整图片大小的方法有：

方法一：

1、单击图片，在图片四周出现八个控点；

2、将鼠标指针放在控点上，当指针变为双箭头时，按下并拖动鼠标，即可调整其大小。

方法二：

1、选中图片；

2、单击绘图工具格式选项卡右下角如图所示的按钮；

3、弹出大小对话框，去掉锁定纵横比和相对于图片原尺寸复选框中的对勾，在高度和宽度输入框中输入所需要的数值即可，如图所示。

3.WORD编辑怎么统一图片大小批量设置图片尺寸大小

之前也遇到这个问题，只找到下面这个方法是有效的。

开发工具--vba窗口，把代码复制进去，运行就可以。 Sub 宏2（)'' 宏2 宏' Dim oInlineShape As InlineShape For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape .LockAspectRatio = msoFalse '不锁定纵横比 .Height =MillimetersToPoints(120) '以毫米为单位设置高度，120毫米高 .Width =MillimetersToPoints(85.7) '以毫米为单位设置宽度，85.7毫米宽 End With NextEnd Sub-----图片尺寸以毫米为单位；。