Excel VB - Open .ppsx, save & close excel issue
Excel VB - Open .ppsx, save & close excel issue
(OP)
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 --> Basic
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





RE: Excel VB - Open .ppsx, save & close excel issue
As far as I can see you are just creating a hyperlink, not actually activating it.
When I record a double click on a hyperlink in a cell I get the following:
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Fore a shape:
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory:=True
You will need something like this (the second line should work for your program) before the ActiveWorkbook.save
Hope this helps
Jens
RE: Excel VB - Open .ppsx, save & close excel issue
Please explain what you want to accomplish.
RE: Excel VB - Open .ppsx, save & close excel issue
TTFN

FAQ731-376: Eng-Tips.com Forum Policies
Need help writing a question or understanding a reply? forum1529: Translation Assistance for Engineers
RE: Excel VB - Open .ppsx, save & close excel issue
Best Regards.
RE: Excel VB - Open .ppsx, save & close excel issue
TTFN

FAQ731-376: Eng-Tips.com Forum Policies
Need help writing a question or understanding a reply? forum1529: Translation Assistance for Engineers
RE: Excel VB - Open .ppsx, save & close excel issue