VB通过InlineShapes取不到Word中的图表

tiancailuo

Dim myword As New Word.Application
        Dim doc As New Word.Document
        Dim oShape As Word.InlineShape
        Dim oChart As Object
        myword = CreateObject("word.application")
        myword.Visible = False      '屏蔽Word窗口
        doc = myword.Documents.Open("e:\2.docx")     '打开文件
        Dim sb As Word.InlineShape
        For i = 1 To doc.InlineShapes.Count
            sb = doc.InlineShapes(i)
            If sb.Type = 3 Then '判断类型（共11种类型　类型说明见后）
                oShape = sb
                oChart = oShape.OLEFormat.Object

                'oChart = doc.InlineShapes(1).Chart()


                MsgBox(oChart.Application.DataSheet.Cells(1, 1).Value)
            End If
        Next



        doc.Close()
        myword.Quit()
        MsgBox("操作完成")



其中oShape.OLEFormat.Object一直为空，取不到图表信息