MS Access and FileMaker...

Powerpoint Automation + VB 6.0

Please support our MS Access and FileMaker Pro advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: Feb 2008

Posts: 198

Reputation: dinilkarun is an unknown quantity at this point

Solved Threads: 0

dinilkarun dinilkarun is offline

Offline

Junior Poster

Powerpoint Automation + VB 6.0

Nov 27th, 2008

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.

Help with Code Tags

(Toggle Plain Text)

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

Last edited by peter_budo; Nov 28th, 2008 at 1:43 pm. Reason: Keep It Organized - For easy readability, always wrap programming code within posts in [code] (code blocks) and [icode] (inline code) tags.