crchasedvm
New Member
- Joined
- Feb 4, 2012
- Messages
- 4
I have a .xlsm that is used in a .pptm. I would like to be able to use a macro to open the .pptm. I have a code that can open it, but does not update the links to the .xlsm when opening. When opening the pptm from the file menu, it asks to update links, but when using macro it does not ask.
Current code:
Sub Open_ANALYSE_PPT()
'Save as c:\file_name.xlsm
ActiveWorkbook.SaveAs ("c:\file_name.xlsm")
'Opens a PowerPoint Document from Excel
Dim objPPT As Object
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
'Change the directory path and file name to the location
'of your document
objPPT.Presentations.Open "C:\file_name.pptm"
End Sub
Any suggestions would be greatly appreciated.
Current code:
Sub Open_ANALYSE_PPT()
'Save as c:\file_name.xlsm
ActiveWorkbook.SaveAs ("c:\file_name.xlsm")
'Opens a PowerPoint Document from Excel
Dim objPPT As Object
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
'Change the directory path and file name to the location
'of your document
objPPT.Presentations.Open "C:\file_name.pptm"
End Sub
Any suggestions would be greatly appreciated.
