各位前辈指教，自己改的代码帮忙纠下错，批量插入图片自适应单元格大小，点击放大

雨择

自己在论坛搜索相关主题，改的代码。应该是两三份文档整合到一起改成自己想要的。现在有2个问题搞不定，各位前辈帮忙指点一下。

实现功能：根据选择路径批量插入匹配单元格名字的图片，保持图片比例自适应单元格大小缩放，点击图片放大，再次点击恢复缩小。

目前存在问题：
1、刚运行完插入代码后，批量插入的图片，除了第一张图，其他的图片单击了会一起放大。需要关闭并重新打开文档后，缩放功能正常。
2、如果在图片放大的情况下，关闭并保存文档，下次打开文档时，图片会以大图尺寸作为基数，没办法再自适应单元格并保持小图。 （我的想法是，在文档关闭前，检查一下有没有图片正在放大？）

初学VBA，请各位前辈多多指教，感谢~

雨择

                            Selection.OnAction = "test"
                            Selection.Name = ActiveCell.Address(0, 0)
                            Selection.AlternativeText = Empty
                            Err.Clear
第一个问题，我觉得是这几行代码的原因，但不明白什么意思，不会改，尴尬

雨择

原来想实现的功能和基本思路如下图

蓝桥玄霜

图片的例子：

雨择

蓝桥玄霜 发表于 2022-11-29 16:51
图片的例子：

前辈你好，没错，我就是参考这个例子改的代码。 就是会遇到2个bug。如果点击图片在放大的情况下，关闭并保存了文档，下次再打开的时候，就没办法像原来那样点击缩小放大，而是以放大后的图片尺寸为基数再放大。具体问题，附件里我有附上图片，还请前辈赐教～

准提部林

Sub test()
Dim Pic As Shape, xA As Range
Set Pic = ActiveSheet.Shapes(Application.Caller)
Set xA = Pic.TopLeftCell
If Pic.Height > xA.Height - 2 Then
   Pic.Height = xA.Height - 2
Else
   Pic.Height = xA.Height * 6
End If
End Sub

蓝桥玄霜

加工作簿关闭前图片复原。

zpy2

蓝桥玄霜 发表于 2022-11-29 16:51
图片的例子：

https://club.excelhome.net/forum.php?mod=viewthread&tid=1620601&fromguid=hot&extra=&mobile=2&_dsign=a46bc9f6
https://club.excelhome.net/forum.php?mod=viewthread&tid=1642435&page=2&mobile=

js 比较方便

准提部林

TEST//
Xl0000182.rar (156.39 KB, 下载次数: 15)

2022-11-30 10:41 上传

点击文件名下载附件

奇诺.

准提部林 发表于 2022-11-30 10:41
TEST//

大佬  这个有没有放在个人宏工作铺，实现打开任意一个excel，里面的图片都可以实现这个功能