VBA, PowerPoint Presentations

Gary & Lorrie MacDonal
#1 / 4

PowerPoint Presentations

I am working a little project in which I have designed a Command Button to
view PowerPoint presentations. The problem I have is that, each record has
its own specific PowerPoint presentation. Having a devil of a time coding
this. Can anyone help?

Here is a sniplet of code;

dim ppt As Object
Set ppt = GetObject("PowerPoint.Application")
ppt.Visible = True
ppt.Presentations.Open FileName:=!Me![Work Area]
ppt.SlideShowSettings.Run
ppt.Quit

Whereas the field [Work Area] is where the LINKED Presentations are stored
within the table. Can anyone help or point out the errors of my ways!

Gary A.MacDonald

Mon, 13 Oct 2003 04:51:20 GMT

Wilga Daem
#2 / 4

PowerPoint Presentations

There is a PPT wizard described at www.unsoftwareag.com

Quote:

> I am working a little project in which I have designed a Command Button to
> view PowerPoint presentations. The problem I have is that, each record has
> its own specific PowerPoint presentation. Having a devil of a time coding
> this. Can anyone help?

> Here is a sniplet of code;

> dim ppt As Object
> Set ppt = GetObject("PowerPoint.Application")
> ppt.Visible = True
> ppt.Presentations.Open FileName:=!Me![Work Area]
> ppt.SlideShowSettings.Run
> ppt.Quit

> Whereas the field [Work Area] is where the LINKED Presentations are stored
> within the table. Can anyone help or point out the errors of my ways!

> Gary A.MacDonald

Sun, 12 Oct 2003 07:26:48 GMT

Horroros
#3 / 4

PowerPoint Presentations

Use:

dim ppt As Object
Set ppt = GetObject("","PowerPoint.Application") ' <------ look this!
ppt.Visible = True
ppt.Presentations.Open FileName:=!Me![Work Area]
ppt.SlideShowSettings.Run
ppt.Quit
hope this helpfull.

-Horroroso-
-----------------------

Quote:

> I am working a little project in which I have designed a Command Button to
> view PowerPoint presentations. The problem I have is that, each record has
> its own specific PowerPoint presentation. Having a devil of a time coding
> this. Can anyone help?

> Here is a sniplet of code;

> dim ppt As Object
> Set ppt = GetObject("PowerPoint.Application")
> ppt.Visible = True
> ppt.Presentations.Open FileName:=!Me![Work Area]
> ppt.SlideShowSettings.Run
> ppt.Quit

> Whereas the field [Work Area] is where the LINKED Presentations are stored
> within the table. Can anyone help or point out the errors of my ways!

> Gary A.MacDonald

Mon, 13 Oct 2003 07:03:03 GMT

Horroros
#4 / 4

PowerPoint Presentations

Other Way:
dim ppt as Object
Set ppt = GetObject([Work Area])
ppt.SlideShowSettings.Run

and that's all.
hope this helpfull too.

-Horroroso-

Quote:

> I am working a little project in which I have designed a Command Button to
> view PowerPoint presentations. The problem I have is that, each record has
> its own specific PowerPoint presentation. Having a devil of a time coding
> this. Can anyone help?

> Here is a sniplet of code;

> dim ppt As Object
> Set ppt = GetObject("PowerPoint.Application")
> ppt.Visible = True
> ppt.Presentations.Open FileName:=!Me![Work Area]
> ppt.SlideShowSettings.Run
> ppt.Quit

> Whereas the field [Work Area] is where the LINKED Presentations are stored
> within the table. Can anyone help or point out the errors of my ways!

> Gary A.MacDonald

Mon, 13 Oct 2003 07:24:45 GMT