如何在Excel中获取Shape的内部名称

Question

使用Shapes.AddPicture(...)方法将图片插入Excel工作表时,Excel会自动为其命名为"图片1","图片2"等.

此名称可用于在Shapes集合中获取对此形状对象的引用,如Shapes.Item("Picture 1").如果使用名称框在Excel中更改名称,则可以通过两个不同的名称(或其中一个是键/标题)来引用Shape对象.因此,如果我将名称更改为"MyPic",我可以使用其中任何一个来引用Shapes集合中的形状:

Shapes.Item("Picture 1")
OR
Shapes.Item("MyPic")

可以使用VBA中的Shape.Name属性访问该名称,但是如何访问内部似乎没有更改的其他值(MyPic)？

更新
我想要做的是将单元格链接到Excel中的图片.我将图片数据保存在单元格的注释中.这些是场景:

1. 如果我保留图片名称(外部名称),则在同一工作表上复制粘贴结构将复制名称,单元格将指向相同的结构.
2. 如果我保留内部名称,则复制粘贴到其他工作表将产生问题,因为同一内部名称可以存在于同一工作簿中的某些其他工作表上.
3. 如果我拿ID,我将无法从中获取图片参考

对我来说,获取内部名称很重要.我有Shape引用,但不知道如何从此ref获取内部名称.

Answer 1

将形状添加到工作表(oSht)后,您可以立即使用oSht.Shapes(Osht.Shapes.count)它来引用它.所以,oSht.Shapes(osht.shapes.count).Name会给你它的名字.

如果要在Shapes集合中找到形状的索引,并且您知道它的名称,那么您需要循环Shapes.Name直到找到它.如果您知道索引,则可以构建"图片n"备用名称,或者可以存储"图片n"备用名称.您还可以存储形状的ID属性,然后通过循环遍历Shapes集合来引用形状,直到找到Shape.ID

如果用户将形状移动到另一个工作表然后重命名,则无法将其标识为原始形状,因为外部名称,备用名称,形状索引和ID都将不同.因此,如果这是您的方案中的问题,则需要考虑卷影复制或工作表保护.