肿么把嵌入E来自xcel中pdf附件批量提取出来

用下面的VBA代码可批量提取嵌入的pdf附件。Subts()DimshAsOLEObjectForEachshInActiveSheet.OLEObjectsIfInStr(***.Name,"Object")Thensh.CopyCreateObject("Shell.Application").Namespace(ThisWorkbook.Path).Self.InvokeVerb"Paste"EndIfNextshEn位dSub

取不到文件名，我感觉文件名已经被转换为ICON了，我下面代码只能显示名字和类型：
12345678Option Explicit Sub 宏1()    Dim s As Shape    For Each s In ActiveSheet.Shapes        If s.Type = msoEmbeddedOLEObject Then MsgBox s.Name & Chr(10) & s.OLEFormat.progID    Next sEnd Sub是否显示为图标的两个对象显示都是一样的的结果：

追问 : ppt下的插入文件可以手动更改这个icon的名称。具体是点右键对象，转换 。 说明这个名称保存着的。怎么提取出来呢？ 请帮忙看看
追答 : 更改图标出现的是图标文件名，是点【更改】按钮的时候系统获得，与原始插入文件名无关了：
追问 : ppt文件内含了一个wmf文件，的确是文字和icon合并了。wmf用文本打开能找到这个文件名。感觉有机会提取出来，可惜暂水平太差
追答 : 不是水平，系统没有提供接口，不可能自己去分析文件二进制代码。 水平其实不要求很高，看看Shapes的在线帮助，看看所有的属性、方法，有就有，没有就没有。