作者：乔山办公网日期：
返回目录：word文档
工具/原料
电脑 wold
方法/步骤
1、图片插入word中，变模糊了。
2、打开word，点击“文件”。
3、左侧来栏点自击“选项”。
4、点击“高级”。
5、弹出窗口，在“图像大小和质量”下，勾选“不压缩文件中的图像”，重新在wold中插入图片，zd在wold中调整图片分辨率完成。
以下为VBA代码，Alt+F11，点击This Document，粘贴代码，使用请备份文档：e69da5e887aae799bee5baa6e997aee7ad94339
Sub AllPictSize()
Dim PecentSize As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
'默认缩放值为75%
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Next oIshp
For Each oshp In ActiveDocument.Shapes
With oshp
.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End With
Next oshp
End Sub
Word没有这种功能，只能批量知选中图片后，批量修改图片的大小，步骤如下：
所需材料：Word 2007示例。
一、打开Word文档后，点击Alt+F11组合键打开VBA编辑。
二、道接着按下Ctrl+G打开立即窗口。
三、在立即窗口内输入“ActiveDocument.Shapes.SelectAll”命令，按下回车键即可选中Word文档内的所有图片。
四、版回到Word页面，点击“格式”，接着点击“大小”。
五、取消勾选“锁定纵横比”和“相对于图片原始尺寸”。
六、在高度和宽度内输入图片的尺寸即权可批量修改图片的大小。
Word如何批量调整图片大小？