为什么图片压缩不了

dafanshu1

文档中的图片不能够通过“设置图片格式”对话框中的“压缩”按钮来压缩，但单独将其中一张图拷贝到新建文档就可以，这是为什么呢？因为原文中还有大量的图片，暂时解决办法就是另存为html文件再用第三方软件来压宿图片。但就是想较较真，为什么在word里就不能压缩。用的是word2003。

shenghua8

“压缩”的意思是：
压缩分辨率，使清晰图片变模糊，以减少存储容量；
或者删除图片的裁剪区域，将“裁剪”按钮调整过的看不到的区域彻底删掉，也是为为减少存储容量。

楼主想要的“压缩”，其实是调整图片大小吧？除了一张张的用鼠标调整8个控制柄，或者用VBA批量实现，没有现成的批量调整方法。
VBA 代码例如：

1. Sub 批量调整图片大小()
   
2. Dim pic As Shape
   
3.     For Each pic In ActiveDocument.Shapes
   
4.         pic.Width = 150
   
5.         pic.Height = 200
   
6.     Next
   
7. End Sub
   

复制代码

dafanshu1

shenghua8 发表于 2015-9-10 12:03
“压缩”的意思是：
压缩分辨率，使清晰图片变模糊，以减少存储容量；
或者删除图片的裁剪区域，将“裁剪 ...

谢谢您的回复！这里“压缩”的意思就是指减少存储容量，正常情况下点击“设置图片格式”对话框中的“压缩”按钮就可以了，文档体积会大为减小，但这个文件执行此操作后文件大小还是没变化，还是1.8M，不过如果将其中一张图删除后保存并关闭，然后打开再执行压缩操作，文档体积就减至80K了，这就证明原文件的图是可以压缩的，就不知道是为什么两张图放在一起就不行了？

dafanshu1

shenghua8 发表于 2015-9-10 12:03
“压缩”的意思是：
压缩分辨率，使清晰图片变模糊，以减少存储容量；
或者删除图片的裁剪区域，将“裁剪 ...

谢谢您的代码！您的代码能够批量改变图片尺寸大小，很有用，但不能减小文档的存储容量，我现在就想减小文档的存储容量。