Question

如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。

Answer 1

取不到文件名，我感觉文件名已经被转换为ICON了，我下面代码只能显示名字和类型：

Option 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 s
End Sub

是否显示为图标的两个对象显示都是一样的的结果：

追问

ppt下的插入文件可以手动更改这个icon的名称。具体是点右键对象，转换 。 说明这个名称保存着的。怎么提取出来呢？ 请帮忙看看

追答

更改图标出现的是图标文件名，是点【更改】按钮的时候系统获得，与原始插入文件名无关了：

追问

ppt文件内含了一个wmf文件，的确是文字和icon合并了。wmf用文本打开能找到这个文件名。感觉有机会提取出来，可惜暂水平太差

追答

不是水平，系统没有提供接口，不可能自己去分析文件二进制代码。
水平其实不要求很高，看看Shapes的在线帮助，看看所有的属性、方法，有就有，没有就没有。