【求助】在excel中点击图片放大3倍显示.

kuangben8 · 发表于 2012-11-2 19:25

感谢各位老师的围观和热心帮助，祝您永远开心快乐。在百度中查找图片时可以如下图所示，想在excel中也实现类似的效果。

excel中怎么做.gif

点击图片放大3倍显示.rar (343.89 KB, 下载次数: 133)

E天天 · 发表于 2012-11-2 20:44

呜呜,excel是03的,转换器提示转换不成...

wpxxsyzx · 发表于 2012-11-2 23:05

仅供参考，2007下的RangeFromPoint方法有bug，会失效

HHAAMM · 发表于 2012-11-3 02:31

俺也来个非API的

HHAAMM · 发表于 2012-11-3 02:36

本帖最后由 HHAAMM 于 2012-11-3 03:00 编辑

稍稍修改一下

kuangben8 · 发表于 2012-11-4 12:05

wpxxsyzx 发表于 2012-11-2 23:05
仅供参考，2007下的RangeFromPoint方法有bug，会失效

感谢斑竹老师的热心帮忙，但是在我的2007中打开后点击没有反应。宏安全性设置为低的。

kuangben8 · 发表于 2012-11-4 12:06

HHAAMM 发表于 2012-11-3 02:36
稍稍修改一下

感谢斑竹老师的热心帮忙，但是在我的2007中打开后点击没有反应的。宏安全性设置为低。

HHAAMM · 发表于 2012-11-4 17:26

kuangben8 发表于 2012-11-4 12:06
感谢斑竹老师的热心帮忙，但是在我的2007中打开后点击没有反应的。宏安全性设置为低。

附件里代码 If a.AutoShapeType = -2 Then 改成 If a.AutoShapeType = 1 Then

joyark · 发表于 2012-12-4 23:42

l很實用工具.謝謝提供學習

kuangben8 · 发表于 2012-12-5 16:59

HHAAMM 发表于 2012-11-4 17:26
附件里代码 If a.AutoShapeType = -2 Then 改成 If a.AutoShapeType = 1 Then

谢谢斑竹老师。

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

[求助] 【求助】在excel中点击图片放大3倍显示.