Excel OLE对象嵌入路径位置

Question

正如标题所述，我还没有找到一种方法来检索嵌入对象的名称或其路径（附加图像）

在提供的示例中，我想获得完整路径位置或至少67CE8 ...名称 - 因为我知道它们存储在Temp文件夹中 - 所以我可以通过VBA自动保存它们。 我试过“.SourceName”，没有运气，因为它似乎只是获得超链接（但没有真正的超链接因此错误1004）。
编辑对于评论中的代码：

ActiveSheet.OLEObjects.Add(Filename:= _ "https://...dummylink" _ , Link:=False, DisplayAsIcon:=False).Select x = Selection.Name Selection.Verb Verb:=xlPrimary

Answer 1

查看图片中的图标，您已插入一个文件而非勾选的对象＆＃39;链接到文件＆＃39;意思是（如你所引用的）它是嵌入的，它没有文件中存在的路径。

我发现上一个问题已经回答here，但是如果没有弹出对话框，就无法运行此问题。

有很多可能的方法可以做到这一点，但在Word中有类似的问题，我使用以下步骤解决了它： -

1. 选择并复制对象
2. 创建新文档（工作簿）
3. 将对象粘贴到
中
4. 将新文档（工作簿）另存为HTML
5. 查看保存的包中唯一的图像文件（因为它是文件中唯一的内容）
6. 将其移至某个位置，以便我可以在其他地方使用
7. 删除新文档（工作簿）及其HTML副本

Answer 2

似乎除了处理临时文件之外别无他法，我在这里找到了一个解决方法代码(click)的答案，再次感谢！