怎样读取一张幻灯片里面的OLE对象的类型？

[icyer]

如题。
比如一张幻灯片里面有一个图表，我怎样才能读取到这个图表对象呢？

[icyer]

类型。
比如：MSGraph.Chart等等。

[yunziwei]

以下内容抄自联机帮助，仅供参考

Sub test()
For Each s In ActivePresentation.Slides(1).Shapes
If s.Type = msoEmbeddedOLEObject Then
MsgBox s.OLEFormat.Object.Application.Name
End If
Next

End Sub

[yunziwei]

请问，您是要按类型来读取，还是要读取选定对象的类型或内容？

[icyer]

Thanks.
我用：
If s.Type = msoEmbeddedOLEObject Then
MsgBox s.OLEFormat.ProgId
End If