VBA Excel保存embedded的OLE对象

我有很多的工作簿内嵌物件（图像，pdf和zip文件），我需要exctract这些文件到硬盘。 我发现这个代码：

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 

但问题是，你得到的文件没有扩展名。

我需要得到这个图像中出现的对象的名称

但我没有find一个方法来获取这些名称。

有人可以帮我吗？