Excel VBA Open PowerPoint into slideshow mode

gmooney

Board Regular
Joined
Oct 21, 2004
Messages
168
Taking this code I would like to add the ability to have the PPT automatically open in slideshow mode:

Private Sub MonthlyToplinePPT()
' Opens Presentation.pptx


Dim PPT As Object
Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
PPT.Presentations.Open Filename:="C:\Topline\Topline Writeup.pptx"
Set PPT = Nothing


End Sub

Any thoughts?
 

Some videos you may like

Excel Facts

Does the VLOOKUP table have to be sorted?
No! when you are using an exact match, the VLOOKUP table can be in any order. Best-selling items at the top is actually the best.

mrshl9898

Well-known Member
Joined
Feb 6, 2012
Messages
1,414
This looks to be working:

Code:
Private Sub MonthlyToplinePPT()
' Opens Presentation.pptx




Dim PPT As Object
Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
PPT.Presentations.Open Filename:="[COLOR=#333333]C:\Topline\Topline Writeup.pptx[/COLOR]"
With PPT.ActivePresentation.SlideShowSettings
    .ShowType = ppShowSpeaker
    .Run.View.AcceleratorsEnabled = False
End With
Set PPT = Nothing




End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,108,956
Messages
5,525,884
Members
409,669
Latest member
JDCupps

This Week's Hot Topics

Top