9

当使用 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. 如果我拿身份证，我将无法从中获取图片参考

对我来说，获得内部名称很重要。我有 Shape 参考，但不知道如何从此参考中获取内部名称。

4

1 回答 1

8

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

如果你想在 Shapes 集合中找到一个形状的索引并且你知道它的名字，那么你需要循环Shapes.Name直到你找到它。如果您知道索引，那么您可以构造“图片 n”替代名称，或者您可以存储“图片 n”替代名称。您还可以存储形状的 ID 属性，然后通过遍历 Shapes 集合来引用该形状，直到找到Shape.ID

如果用户将形状移动到不同的工作表然后重命名它，则无法将其识别为原始形状，因为外部名称、备用名称、形状索引和 ID 都会不同。因此，如果这在您的场景中是一个问题，您将需要考虑卷影复制或工作表保护。

于 2010-09-19T16:45:13.783 回答