如题所述
取不到文件名,我感觉文件名已经被转换为ICON了,我下面代码只能显示名字和类型:
Option ExplicitSub 宏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的在线帮助,看看所有的属性、方法,有就有,没有就没有。
温馨提示:答案为网友推荐,仅供参考