Vba Excel保存嵌入的OLE对象

Question

我有很多嵌入了objets（图像，pdf和zip文件）的工作簿，我需要将这些文件解压缩到硬盘上。 我找到了这段代码：

Sub Test()
 'copy oleobject
 ActiveSheet.OLEObjects("Objeto 3").Copy
 'paste to activeworkbook's path
 CreateObject("Shell.Application") _
 .Namespace(ActiveWorkbook.Path) _
 .Self.InvokeVerb "Paste"
End Sub

但问题是y得到一个没有扩展名的文件。

我需要获取此图片中显示的对象的名称

但我没有找到一种获取这些名字的方法。

有人可以帮助我吗？。