[分享]点击放大图片（第一版）

hyqvv · 发表于 2012-6-4 15:14

代码少了一行

Vivian_Zhangph · 发表于 2012-7-5 14:59

如果要在多个sheet中实现点击图片放大的功能，该怎么做？？
并且图片不是规律的放在同一行或同一列中的。
谢谢！

jhzghua · 发表于 2012-9-2 16:18

正在学习感谢版主分享！

lxmbfmowx · 发表于 2014-4-19 20:26

没看懂怎么做的，

icepb · 发表于 2014-7-16 15:29

andysky 发表于 2007-7-27 17:40
QUOTE:以下是引用inlove在2007-7-27 17:23:05的发言：好玩，就是不知道怎么做.1.插入若干个图片在B列2.在A列 ...

请教楼主，
1. 放置图片的位置有要求么
2. 图片的名字是可以与实际名字不同么

谢谢。

knightky · 发表于 2014-7-16 16:30

为什么会：无效的外部过程

aoe1981 · 发表于 2014-7-16 17:46

andysky 发表于 2008-10-5 17:08
QUOTE:以下是引用michaellin在2008-10-1 10:00:10的发言：呵呵，应该加一个点其他地方，图片都变小的代码&n ...

“第三版工具”在什么地方呢？本帖当中找不到哇……

aoe1981 · 发表于 2014-7-16 18:06

gvntw 发表于 2007-7-27 21:55
建议在代码最前面加一句If Target.Column > 1 Then Exit Sub否则，单击其他单元格，屏幕也会闪烁。

我一开始想的是把：
If Target.Column = 1 And Target.Count = 1 Then
改成：
If Target.Column <2 And Target.Column = 1 And Target.Count = 1 Then
实践证明你的语句比我这样做的好！

aoe1981 · 发表于 2014-7-16 18:07

这是搜到的相关知识，贴一下：
“用宏不好实现，因为vba里面不支持mousemove事件，要做的话要用图片控件image，把图都放进image控件里。image控件是有mousemove事件的”

ran22dom · 发表于 2014-12-29 11:40

怎么我复制了代码，点前面的都是最后一个会变大，其他都不会变大的

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

[分享] [分享]点击放大图片（第一版）