怎样使用VBA操作“不压缩文件中的图像”

□智□

好像是office2007以后的版本为了压缩保存后的文件大小都把插入文件内的图片压缩了，在高级选项里的“不压缩文件中的图像”默认是不选中的，另存新文件时表格内的图片就会压缩，每次另存都要重新选择这项，我想使用VBA另存新文件，可是在网上找了很久都没有找到操作这一功能的代码，只能使用发送按键实现，但是误操作现象时有发生，求助各位老师帮助这段代码应该怎样写

□智□

10/1各位老师都在休息吗？谁有时间帮我看看啊{:soso_e100:}

□智□

各位老师，上班了抽空帮我看看啊{:soso_e100:}

ym1080

同问  没有高手能解决吗

ebkzxcel

好麻烦啊,老是自动压缩,我也有这个困扰

moon2778

1、如果是一个已经勾选了“不压缩文件中的图片”的excel文件，另存的时候，该项是保留的。另存的操作不会影响其中的图片。
2、如果是用vba新建了一个文件，希望重新插入的图片可以不被压缩，可以使用 Shapes.AddPicture2

3、如果是希望vba可以设置“不压缩文件中的图片”选项，做不到，微软没有将这个workbook的属性开放给vba。
4、关于楼主的问题，建议你先提前勾好“不压缩文件中的图片”，设置好一个模板，然后基于这个模板再去另存为和插入图片。

moon2778

本人刚好也遇到这个问题，搜索一看，这个问题无人解答。所以琢磨了一会儿。
以下为taller老师（简直英明神武啊！）的讲解：
用常规办法不能解决，但是可以用非常规的办法解决——修改注册表。
1、开始-运行-输入regedit。

2、找到相应键值 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options.
（其中的14.0有可能是别的数，这取决于你的office版本，比如2013版本是15.0）

3、然后在右侧空白处，右键-new-新建一个Dword value（需要先查看你的office是32位还是64位）
将其命名为AutomaticPictureCompressionDefault

4、确保它的value为0.

然后打开excel看看，默认就都是勾选“不压缩文件中的图片”了。
经本人测试可行。

另：
1、如果希望之后新建的excel，都默认为不勾选“不压缩文件中的图片”，那么只需要将AutomaticPictureCompressionDefault的value值改为1.
2、PPT、Word软件中的操作类似。