ms Graph Chart 控制

引用 ms graph 9.0 object
代码如下
On Error GoTo Err_Normal
    Dim i As Integer
    Dim lRow As Long
    OLE1.Format = "CF_TEXT"   ' 置文件格式为文本方式。
    OLE1.SizeMode = 1
    OLE1.CreateEmbed "", "MSGRAPH"   '建立内嵌对象
    OLE1.AutoActivate = 0   '关闭编辑
    OLE1.AutoVerbMenu = False
    Dim oGraphChart As Graph.Chart
   Set oGraphChart = OLE1.object
   oGraphChart.ChartType = xl3DAreaStacked 'xl3DArea
'   OLE1.object.ChartType = -4098 'xl3DAreaStacked
'    OLE1.OLEType
    Dim Msg, NL, TB   ' 变量声明。
    Dim sMCaption As String     '头
    Dim smsgArray() As String   '列数据
    
    Dim sTmp As String
    TB = Chr(9)   ' Tab 字符。
    NL = Chr(10)   ' 换行字符。
    If arec.State = 0 Then Exit Function
    If arec.RecordCount <= 0 Then Exit Function
    ReDim smsgArray(arec.Fields.Count - 1)
    For i = 0 To arec.Fields.Count - 1
        smsgArray(i) = NL & arec.Fields(i).Name
    Next i
    lRow = 0
    While Not arec.EOF
        sMCaption = sMCaption & TB & arec.Fields(0).Value
        For i = 0 To arec.Fields.Count - 1
            smsgArray(i) = smsgArray(i) & TB & arec.Fields(i)
        Next i
        arec.MoveNext
    Wend
    
    For i = 0 To UBound(smsgArray)
'        If smsgArray(i) <> "" Then
'            smsgArray(i) = Mid(smsgArray(i), 1, Len(smsgArray(i)) - 1)
'        End If
        Msg = Msg & smsgArray(i)
    Next i
    Msg = sMCaption & Msg
    Debug.Print Msg
    OLE1.DoVerb -3
   If OLE1.AppIsRunning Then
      OLE1.DataText = Msg
      ' 更新该对象。
      OLE1.Update
   Else
      MsgBox "Graph isn't active."
   End If注意到这个xl3DAreaStacked 了吧，9.0里定义的，怎么把它们全都找出来？
我不想引用这个9.0动态库