如何取消word文档图片自动压缩?

Question

刚才在网上找了一材料.里面有几十张图片.但是粘贴到word里图片全部被压缩了.只有硬币那么点大
有没有什么办法可以批量处理?
那么多图片一张一张拉大是不可能的...

Answer 1

可以用VBA扩大把原图片扩大（如扩大5倍）：

1、打开文档后，按Alt+F11——出现《Microsoft Visual Basic》对话框——左侧窗口：“Porject”项下找“ThisDocument”——右键——插入——模块：粘贴以下代码：

SubMacro()

ForEach iShape In ActiveDocument.InlineShapes

iShape.Height= iShape.Height * 5

iShape.Width= iShape.Width * 5

NextiShape

EndSub 

2、按F5——出现《宏》操作对话框选宏名（Macro）——运行——关闭VBA窗口。

效果如下：

但如果你插入的照片本身像素就很小（如缩略图），扩大尺寸就会使图片变得模糊了。

Answer 2

全选这些图片（或按住Ctrl键多选若干张）--右击--设置图片格式--大小--调整适当的高宽后--确定。本回答被网友采纳

Answer 3

在word中点：文件-选项-高级-选“不压缩文件中的图像”就行了

Answer 4

插入图片后点击图片选择图片格式高度和宽度输入你要的大概大小聚可以了（图片你可以选择好几张）

Answer 5

word——选项——高级——勾选“不压缩文件中的图像”，done!