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

andysky

hkncz5j5.rar (308.94 KB, 下载次数: 1977)

2007-7-27 16:08 上传

点击文件名下载附件
[分享]点击放大图片

[此贴子已经被作者于2008-5-5 10:45:42编辑过]

dapeng1231

qing请问  是怎么作的阿  附件中没有写过程阿  请执教  谢谢

hhfilu

最好是写出教程来,以方便学习啊!

inlove

好玩，就是不知道怎么做.

andysky

QUOTE:

以下是引用inlove在2007-7-27 17:23:05的发言：

好玩，就是不知道怎么做.

1.插入若干个图片在B列

2.在A列输入图片的名字

3.ALT+F11，双击左边窗口中的sheet1(sheet1)

4.在右边窗口中输入以下代码：

QUOTE:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

If Target.Column = 1 And Target.Count = 1 Then
Dim ss As Shape
For Each ss In ActiveSheet.Shapes
ss.Select
Selection.ShapeRange.Height = 50
Next
On Error Resume Next
If Target <> "" Then
   ActiveSheet.Shapes(Target.Text).Select
    Selection.ShapeRange.Height = 100
    Selection.ShapeRange.Width = 150
   Selection.ShapeRange.ZOrder msoBringToFront

End If
End If
Application.EnableEvents = False
Target.Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

大功告成

xmh850216

呵呵，应该加一个点其他地方，图片都变小的代码

andysky

QUOTE:

以下是引用xmh850216在2007-7-27 18:02:42的发言：

呵呵，应该加一个点其他地方，图片都变小的代码

不是已经有了吗？

在A列空白区点击则所有图片缩小。

zz5151353

有用 [em17] 謝謝版主提供分享 !!![em23][em23][em23][em24][em24][em24][em27][em27][em27][em17]

xmh850216

QUOTE:

以下是引用andysky在2007-7-27 18:08:22的发言：

不是已经有了吗？

在A列空白区点击则所有图片缩小。

哦。我就测了下点别的单元格时候的反应，呵呵。因为点在其他地方图片还大着还是有点不习惯：）

gvntw

建议在代码最前面加一句

If Target.Column > 1 Then Exit Sub

否则，单击其他单元格，屏幕也会闪烁。