VBA代码能再Excel2016版本上完美运行，为什么在Excel 365版本上却运行不.

opiona

vistababy 发表于 2023-4-2 18:48
当然想更省事的话，可以在for i=1那句前面加上：

Application.ScreenUpdating = False

正解  
因为如果 <>100%  当你插入的图片很多,例如1-10000行每行一个图片时
会发现下面的图片位置错位了
这是Excel的bug  所以=100% 就不会出现此问题

vistababy

opiona 发表于 2023-4-2 23:49
正解  
因为如果 100%  当你插入的图片很多,例如1-10000行每行一个图片时
会发现下面的图片位置错位了
...

1万行？每行一个图片？？这么多？一般是做啥类型的文件？

thomasxian84

vistababy 发表于 2023-4-2 18:48
当然想更省事的话，可以在for i=1那句前面加上：

Application.ScreenUpdating = False

谢谢大神啊，其实我再表述问题的时候，是想要把这个问题加上去了，原因是我到处图片的时候，就算成功了，但是导出来的图片像素很低，但是当我全选图片，然后大小缩放到100%的时候，在运行代码，导出来的图片的像素是oKay,完全没想到可以这么加多几行代码啊，哈哈

thomasxian84

vistababy 发表于 2023-4-2 21:19
我还有方法2，就是在导出前将图片放大，导出后缩小。图片也能变大变清晰一些。对排版没有影响。

这样放大五倍其实是可以的，但会出现一个问题，比如我的插入图片的时候，可能存在部分图片的纵横比没有锁定，缩放的时候图片变形了，直接放大5倍，图片还是变形的。但如果手动选中所有图片，然后缩放比例写100%，并且锁定纵横比，这样图片就会恢复原样，不会变形。就是不知道这代码要怎么写了。哈哈

opiona

vistababy 发表于 2023-4-3 10:36
1万行？每行一个图片？？这么多？一般是做啥类型的文件？

不要低估大家遇到的复杂情况
所以编程人员 必须时刻考虑到极端情况 如何处理

此Bug时我给一个客户制作商品一览表时发现的
当图片添加的3W后 从1W行开始错位明显

vistababy

thomasxian84 发表于 2023-4-3 11:47
这样放大五倍其实是可以的，但会出现一个问题，比如我的插入图片的时候，可能存在部分图片的纵横比没有锁 ...

在If pic.Type = 11 Or pic.Type = 13 Then的下面增加一行代码：
pic.ScaleHeight 1, msoTrue
一翻循环下来，就能恢复所有图片原始比例，但这行并不会导致图片变大，只是恢复原始比例。所以导出来以后图片不会变形了。我拿一张图片压扁以后，原来导出是扁的，加了这行代码，正常了。试过。

vistababy

opiona 发表于 2023-4-3 11:50
不要低估大家遇到的复杂情况
所以编程人员 必须时刻考虑到极端情况 如何处理

一般这么多行，都是在电脑上看的，不会打印到纸上。如果把行高像楼主一样弄高一些，图片在中间，单元格周边有很多空余。也会错位？
我拿楼主的文件通过代码复制那5个图2000次，凑成10000行，怎么弄都没有错位。

vistababy

在Excel设置---高级里面，有个图片压缩的选项，如果选择不压缩，插入的图片多，插入一个图片1MB，文件体积就大1MB，文件体积非常恐怖，。
但启用了以后，图片压缩厉害。
拿导出5张图片为例，通过9楼代码调显示比例到400%导出，速度还是很快的。
如果拿10楼的代码将图片先放大5倍甚至10倍，速度明显变慢，尤其是10倍，5张都能卡死，导出的每张图片平均有4、5MB以上，但清晰度比9楼导出的并无明显提升。

opiona

插入图片时，定位出现严重偏差

原因找到了：Excel2007在缩小印刷的时候，图片位置会发生偏差。微软承认这个现象的存在。
设定了缩小或者放大的状态Excel样本文件(Template File)里插入的图片位置偏差估计也是这个问题造成的。
解决方法：
因为放大率100%的状态下设置的图片不会位置偏差，
所以在插入图片之前暂时设定放大率为100%（sheet.ActiveWindow.Zoom = 100）， 图片设定完之后再把放大率给设回去。

https://club.excelhome.net/thread-1475836-1-1.html