Powerpoint Automation + VB 6.0
 

I have given below a code snippet where i am able to generate a ppt with one slide. In a loop the followig code snippet will be passed with new "dbId" and for each "dbId" new slide has to be added in the already existing PPT as extra slides.

Please suggest me how to change this code so as to add the slides in the already generated powerpoint with data generated.

Dim ss As DAO.Recordset

Dim DB As Database

Dim query As String

Set DB = CurrentDb()

query = "select title from tbl_weight_technical where database_id = " & dbId

Set ss = DB.OpenRecordset(query, dbOpenSnapshot)

If ss.RecordCount = 1 Then

Dim path As String

Dim ppApp As Object

Set ppApp = CreateObject("PowerPoint.Application")

path = GetdbPath & "main_pic\template.ppt"

ppApp.Visible = True

Dim ppPres As Object

Set ppPres = ppApp.Presentations.Open(path, False, True, True)

Dim ppSlide1 As Object

Set ppSlide1 = ppPres.Slides(1)

Dim ppShape1 As Object