Access controlling Power Point? 1

[Junior1544]

Does any one out there know of a place that can help me work with access and power point??

Here is what I need to do...

I want to have a database that has a bunch of info about power point files in it, with a link to the power point file in each record... Now, I want to be able to select a bunch of the power point files from a seperate form and then have access open each one, copy all the slides out of them, and post them all into a new power point file in the order that i selected them. I am able to do all of the access table work, and the programming to deal with the data in the tables... What i can't figure out is how do i get access to open a power point file, select all of the slides, open(r create) a different power point file, and paste all the slides into this new/second opened file. I've made a programming reference to power point already, and have been looking at the references... But i'm not a good programmer, so I havn't been able to figure any thing out yet...

Thanks for your time...
--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[tunsarod]

For a start you could visit:

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q167223

Where you can download a special help file all about using Automation to control one Office program from another. Your requirement fits the bill exactly. Automation is the way to go.

Also from the Access VBA help file:


In this example, a Presentation object is passed to the procedure. The procedure adds a slide to the presentation and then saves the presentation in the folder where PowerPoint is running.

Sub AddAndSave(pptPres As Presentation)
pptPres.Slides.Add 1, 1
pptPres.SaveAs pptPres.Application.Path & "\Added Slide"
End Sub

This example displays the name of the application that created each linked OLE object on slide one in the active presentation.

For Each s In ActivePresentation.Slides(1).Shapes
If s.Type = msoLinkedOLEObject Then
MsgBox s.OLEFormat.Object.Application.Name
End If
Next


Also from the Auto97.hlp file referred to above:


Run a Microsoft PowerPoint Presentation

This example demonstrates how to open and run a Microsoft PowerPoint presentation using Automation. This example assumes that you have created a Microsoft PowerPoint presentation named "C:\My Documents\pptPresentation.ppt".

Sub runPowerPointPresentation()
Dim pr As PowerPoint.Presentation
Set pr = GetObject("C:\My Documents\pptPresentation.ppt&quot
pr.SlideShowSettings.Run
End Sub


Now I don't say its easy but is anything worth doing that's easy .... yes, breathing comes close.

Good luck

Rod

 

[Junior1544]

I thought i had known some good programmers that are friends... (though not in vba)

But you are realy good... thank you so much!

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[Junior1544]

I just started working with this, and it does seem to be pretty simple (I have a decent understanding of how vba runs(well, a bit any way))... and it seems to do much for me... I'm using office 2k, so I just highlighted a little text from the page you linked to, and searched for that... It came right up with the vertion I needed...

Thank you so much!

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.