用VBA区分WORD中的公式和图形

请试一下如下代码
Sub test()
  Dim myIns As InlineShape
  For Each myIns In ActiveDocument.InlineShapes
     With myIns
        .Select
        Select Case .Type
        Case wdInlineShapeEmbeddedOLEObject
           If .OLEFormat.ClassType = "Equation.3" Then
              MsgBox "是公式"
           Else
              MsgBox "非OLE对象"
           End If
        Case wdInlineShapeLinkedPicture
           MsgBox "链接图片类型"
        Case wdInlineShapePicture
           MsgBox "图片类型"
        Case Else
           MsgBox "其他类型"
        End Select
     End With
  Next
End Sub