怎么批量调整复制到word中文档中图片的大小?一张张的调整太麻烦

1.怎么批量调整复制到word中文档中图片的大小?一张张的调整太麻烦

1、如果是word2003及以下版本，则按下列步骤进行：右键文档里其中任何一张图片-设置图片格式-图片-压缩-选“文档中所有图片”-更改分辨率为“Web/屏幕”-下边“压缩图片”和“删除图片的剪裁区域”全选中，最后点击确定，如果图片较多，要稍等一会，电脑才能处理完。

2、如果是word2007及以上版本，则按下列步骤进行：首先打开文档页面，双击文档里任何一张图片，然后在“图片工具”选项卡的“调整”中单击“压缩图片”按钮，在弹出“压缩图片”对话框中勾选“删除图片的裁剪剪区域”，并取消“仅应用于所选图片”选项前的勾，单击“确定”按钮。

2.怎样批量调整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

3.怎么将图片放到WORD文档里并在WORD里调整图片大小

一共需要五步，具体操作如下：

1、点击word图标，运行Word。

2、新建一个Word文档。

3、新建完成后，点击插入选项卡下的图片工具。

4、选择需要的插入的图片。

5、结果如图所示。调整大小可以拉着照片四角拖拽进行。