Opening Powerpoint file from Excel

Hi -

I have the following code to start a new instance of Powerpoint when
the value in Cell A1 is greater than 10:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)

If Range("A1").Value > 10 Then
Application.ActivateMicrosoftApp (xlMicrosoftPowerPoint)
End If

End Sub


How can I adapt this code to specify which file to open in Powerpoint?
It will always be the same file so I can hard code the filename into my
macro, something like 'C:\My Folder\My Presentation.ppt

Thanks in advance

Jake

Jake,

Try this

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Dim oPPT as Object

If Range("A1").Value > 10 Then
Set oPPT = GetObject("C:\My Folder\My Presentation.ppt")
oPPT.Parent.Parent.Visible = True
End If

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"JakeyC" <mrjsoftware@hotmail.com> wrote in message
news:1133202443.193624.9480@f14g2000cwb.googlegroups.com...
> Hi -
>
> I have the following code to start a new instance of Powerpoint when
> the value in Cell A1 is greater than 10:
>
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> Excel.Range)
>
> If Range("A1").Value > 10 Then
> Application.ActivateMicrosoftApp (xlMicrosoftPowerPoint)
> End If
>
> End Sub
>
>
> How can I adapt this code to specify which file to open in Powerpoint?
> It will always be the same file so I can hard code the filename into my
> macro, something like 'C:\My Folder\My Presentation.ppt
>
> Thanks in advance
>
> Jake
>

Thanks for your help.
That certainly opens Powerpoint but not the actual show, just the
program. Any ideas why it may not work?

Do you mean launching into Powerpoint Viewer?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JakeyC" <mrjsoftware@hotmail.com> wrote in message
news:1133213544.446734.71060@g14g2000cwa.googlegroups.com...
> Thanks for your help.
> That certainly opens Powerpoint but not the actual show, just the
> program. Any ideas why it may not work?
>

Yes, I'd like it to start the show. I realise my '.ppt' extension was
misleading - the one I used in the end was '.pps', however both seem to
launch an empty powerpoint.

Hi Jake

If you set a reference to the Microsoft Powerpoint Object Library then
you could try it like this:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)

If Range("A1").Value > 10 Then

Dim ppApp As PowerPoint.Presentation

Set ppApp = GetObject("C:\temp\pptShow.pps")
ppApp.SlideShowSettings.Run

End If
End Sub

Hope this helps
Rowan

JakeyC wrote:
> Yes, I'd like it to start the show. I realise my '.ppt' extension was
> misleading - the one I used in the end was '.pps', however both seem to
> launch an empty powerpoint.
>

Just run the show then, add

oPPT.SlideShowSettings.Run

at the end.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JakeyC" <mrjsoftware@hotmail.com> wrote in message
news:1133219362.553008.23810@g47g2000cwa.googlegroups.com...
> Yes, I'd like it to start the show. I realise my '.ppt' extension was
> misleading - the one I used in the end was '.pps', however both seem to
> launch an empty powerpoint.
>