单击图片放大

oasisky

版主你好，找到您2015的帖子，其中有一个EXCEL中可以单击图片使图片放大的代码，很好用，但是有一个问题就是，如果单元格中有两张及以上图片，单击其中的一张，所有的图片均放大。相互遮挡，请问有什么办法解决这一问题吗。谢谢
Sub test()
    On Error Resume Next
    For Each a In ActiveSheet.Shapes
        If a.Type = 1 Or a.Type = 13 Then
            If a.Name = Application.Caller And a.AlternativeText = Empty Then
                a.AlternativeText = a.Height & Chr(28) & a.Width
                a.Height = a.Height * 3
                a.Width = a.Height * 3
                a.ZOrder msoBringToFront
            Else
                a.Height = Split(a.AlternativeText, Chr(28))(0)
                a.Width = Split(a.AlternativeText, Chr(28))(1)
                a.AlternativeText = Empty
            End If
            Err.Clear
        End If
    Next
End Sub

大灰狼1976

1. Sub test()
   
2. With Sheets(1).Shapes(Application.Caller)
   
3.   .Width = .Width * 2
   
4.   .Height = .Height * 2
   
5. End With
   
6. End Sub

复制代码

oasisky

麻烦哪位大神给看看，双击其中一个图片，两个图片同时打开。非常感谢

oasisky

大灰狼1976 发表于 2020-1-18 11:17

您好，您这个只能放大，能不能再点击放大图片，变成原大小，或者点击下一张图片，之前图片变成原大小，谢谢

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=1518446&mobile=

wj2368

oasisky 发表于 2020-1-19 09:41
麻烦哪位大神给看看，双击其中一个图片，两个图片同时打开。非常感谢

。。。。。。。。。。。。。。。。。

oasisky

wj2368 发表于 2020-1-19 11:24
。。。。。。。。。。。。。。。。。

谢谢大师，问题解决了，虽然我不知道改的那个位置是什么意思。

wj2368

oasisky 发表于 2020-1-19 12:40
谢谢大师，问题解决了，虽然我不知道改的那个位置是什么意思。

原来是同单元格的图片都放大

oasisky

wj2368 发表于 2020-1-19 12:52
原来是同单元格的图片都放大

非常感谢！

oasisky

请教一下各位老师，图片放大的程序运行一段时间后，发现有的细长的图片点击后是缩小，而不是放大。有的图片放大后模糊，而且是随机出现的，不知道是什么原因。谢谢