DavidQ
Industrial
- Oct 11, 2012
- 53
Hello Eng Tips,
Im writing a code to open a power point show, save & close excel workbook. I added the ActiveWorkbook.save before ActiveWorkbook.quit line because the program ask to save the file before close it. The issue I get with this code is that it dont open the pps just save & close excel, any advice?
Code:
Sub Open_PPS()
'
' Open_PPS Macro
ActiveSheet.Shapes.Range(Array("Picture 17")).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
"Presentation%20Show.ppsx#2. Slide2"
ActiveWorkbook.save
Application.Quit
End Sub
Best Regards
Microsft Office 2010