access til powerpoint vha automation

hejsa jeg har et mindre kode problem
Jeg vil overføre data fra access til en powerpoint fil, hvilket går helt fint indtil jeg skal overføre data til et excell objekt i powerpoint filen!


ved overførsel til en powerpoint tabel gør jeg sådan:
'-----------------------kode
Dim db As Database
Dim rs As Recordset
' Open PowerPoint
Dim strPowerPointFile As String
Dim pptobj As PowerPoint.Application
Set pptobj = New PowerPoint.Application
pptobj.Visible = True
'pptobj.WindowState = ppWindowMinimized
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from testtable", dbOpenDynaset)

strPowerPointFile = CurrentProject.Path & "\test.ppt"
   
   
' Fill a collection with all Slide IDs.
With pptobj.Presentations.Open(strPowerPointFile)
      Dim tal As Integer
      tal = 2
      While Not rs.EOF
        With .Slides(9).Shapes(2).Table
        .Cell(tal, 1).Shape.TextFrame.TextRange.Text = CStr(rs.Fields("type").Value)
     
          End With

tal = tal + 1
            rs.MoveNext
        Wend
 
        .Save
        .Close
    End With
'-------------end of kode---------------------------


hvad skal jeg ændre hvis jeg istedet vil lægge dataen ind i et excell objekt inde i powerpointen?