插入图片时，锁定图片纵横比，按原比例缩放

lpzxhjp · 发表于 2012-11-21 12:00

本帖最后由 lpzxhjp 于 2012-11-24 01:12 编辑

附件是我修改了香川群子老师的代码，现在的问题是插入图片时不能按原比例缩放。请教各位老师，谢谢！

doitbest · 发表于 2012-11-21 14:58

图片是按原比例缩放的，但要每个图片都填满单元格，这做不到，因为纵横比不同

香川群子 · 发表于 2012-11-21 16:01

楼主可以自己手工插入图片做出你希望的效果图来。

只要你手工做得到，那么就可以写出宏代码。

如果你手工也做不出的效果，那么指望宏代码出现奇迹也是不可能的。

lpzxhjp · 发表于 2012-11-21 18:22

本帖最后由 lpzxhjp 于 2012-11-21 18:23 编辑

doitbest 发表于 2012-11-21 14:58
图片是按原比例缩放的，但要每个图片都填满单元格，这做不到，因为纵横比不同

老师可能误解我的意思了，我的意思是设图片高度为60，根据这个高度（即高度一定）自动缩放宽度，没有要求填满单元格呀！谢谢！能帮我看看吗？

doitbest · 发表于 2012-11-21 19:48

宽度已经自动缩放了，每个图片都锁定了纵横比，和浏览器中的效果一样
你再仔细看看

lpzxhjp · 发表于 2012-11-21 19:58

本帖最后由 lpzxhjp 于 2012-11-21 20:00 编辑

宽度没有自动缩放呀，你看看第2、3、4张图片在我工作表中的效果，我就搞不清楚为什么宽度不自动缩放？

doitbest · 发表于 2012-11-21 20:23

h = InputBox("请输入图片的高度，如果输入值为0，则图片尺寸自动适应单元格大小！", "输图片高度", 60)
如果输入0，程序如下处理：取消纵横比，图片高度与活动单元格相同，宽度则是以活动单元格为准，图片自然可能变形。这也是一种人性化的设置，因为每个人需求不同，原始图片的尺寸也不同
不输入0就没有以上问题了

lpzxhjp · 发表于 2012-11-21 21:16

doitbest 发表于 2012-11-21 20:23
h = InputBox("请输入图片的高度，如果输入值为0，则图片尺寸自动适应单元格大小！", "输图片高度", 60)
如 ...

这部分代码就是我自己加的，6楼的图片就是在输入60时的效果，不是0时的效果，所以我就疑惑为啥宽度没有自动缩放？

doitbest · 发表于 2012-11-21 21:34

我用完全正常啊，把你出错的附件传上来

wpxxsyzx · 发表于 2012-11-21 21:52

我这也正常

		自动登录	找回密码
密码			免费注册

[已解决] 插入图片时，锁定图片纵横比，按原比例缩放