[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

Open power point presentation from ACCESS 2003 VBA

Posted on 2011-09-06
13
Medium Priority
?
424 Views
Last Modified: 2012-05-12
How does one open a power point presentation from Access 2003 via VBA?  I have a trainging presentation that I want user to be able to open from a button on an ACCESS 2003 form.  The power point is in version 2010.
0
Comment
Question by:ssmith94015
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 3
  • 3
  • +1
13 Comments
 
LVL 48

Expert Comment

by:Dale Fye
ID: 36490149
I generally use the Application.Followhyperlink method.  All you need to add to that is the path and file name.
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 36490169
Yes, if all you need to do is "Open" the PP file then fyed has your answer here.

If you need anything special (Open parameters, run slide show automatically, ...etc) then you will need "Interoperability" code.

JeffCoachman
0
 

Author Comment

by:ssmith94015
ID: 36490171
Ok, this did open it, but it opened it in design view.  Maybe I did not make myself clear and sorry about that, but I want the user to hit the button and have the presentation start running.  
0
Moving data to the cloud? Find out if you’re ready

Before moving to the cloud, it is important to carefully define your db needs, plan for the migration & understand prod. environment. This wp explains how to define what you need from a cloud provider, plan for the migration & what putting a cloud solution into practice entails.

 
LVL 5

Expert Comment

by:MAdS
ID: 36490210
Try this:

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
 (ByVal hwnd As Long, _
  ByVal lpOperation As String, _
  ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

Sub OpenFile()
 On Error Resume Next
 Call ShellExecute(0, "open", "[file-name]", , "[file-folder]", SW_SHOWMAXIMIZED)
End Sub 

Open in new window

0
 
LVL 5

Expert Comment

by:MAdS
ID: 36490228
P.S.: have you presentation saved as PPSX, not PPTX
0
 

Author Comment

by:ssmith94015
ID: 36490355
Ok, it keeps crashing my system.
0
 

Author Comment

by:ssmith94015
ID: 36490377
Now I get argument not optional
Sub OpenPowerPoint()
 On Error Resume Next
 Call ShellExecute(0, "open", "ProjectTaskTraining.ppsx", , "K:\DatabaseDevelopment\ProjectTaskTracking\", SW_SHOWMAXIMIZED)
End Sub
0
 
LVL 48

Accepted Solution

by:
Dale Fye earned 2000 total points
ID: 36490556
What keeps crashing your system?

If you save the file as a ppsx, as indicated by MAdS, then the followhyperlink method should work just fine.

If you don't like that method, create subroutine that will open PPT, then the file, then display the slideshow

Try this:

Public Sub ppt(FileName As String)

    Dim ppt As Object
    Dim pres As Object
    Dim ss As Object

    Set ppt = CreateObject("Powerpoint.Application")
    ppt.Visible = True
    Set pres = ppt.Presentations.Open(FileName)
    Set ss = pres.slideshowsettings.Run

    Set ss = Nothing
    Set pres = Nothing
    Set ppt = Nothing

End Sub
0
 

Author Comment

by:ssmith94015
ID: 36490591
System crashes when I try to run the code.  I will try your version fyed and see what happens.
0
 

Author Closing Comment

by:ssmith94015
ID: 36490618
Thank you, this worked.  The other seemed logical as far as I could tell, but my system just did not like it.

Sandra
0
 
LVL 48

Expert Comment

by:Dale Fye
ID: 36490654

Did you even try:

Application.FollowHyperlink "K:\DatabaseDevelopment\ProjectTaskTracking\ProjectTaskTraining.ppsx"
0
 

Author Comment

by:ssmith94015
ID: 36490885
Yes I did, it was the first thing, but again, for whatever reason, my system would not process.  I am happy with what I have now.
0
 
LVL 5

Expert Comment

by:MAdS
ID: 36492228
Just FYI, I skipped 4th parameter. It should be:

Sub OpenPowerPoint()
 On Error Resume Next
 Call ShellExecute(0, "open", "ProjectTaskTraining.ppsx", "", "K:\DatabaseDevelopment\ProjectTaskTracking\", SW_SHOWMAXIMIZED)
End Sub
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …

649 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question