|Hi and thanks in advance for any help you can offer|
I have created an Excel workbook that is used by sales reps to model budget impacts for a wide range of different organisations. The rep can then generate a PowerPoint presentation with multiple links back to the workbook to leave with the organisation.
The problem is that every time the customer opens the saved presentation, they are asked to update links, which is a nuisance. I found some VBA code on the forum that I have linked to a button to automatically break the links (see below) but the reps need to first save the PowerPoint as a copy first, in order that the linked template is still available for the next time they run the program. It turns out that they sometimes forget to do this, thus preventing the template from updating the next time they try to use it!
Is there a way I can add some lines to the VBA code so that when they press the button it will automatically force a “save as” before breaking the links in the copy, leaving the original unchanged?
Here is the code I am using:
Dim oSld As Slide
Dim oShp As Shape
Dim oCmdButton As CommandBarButton
Set oCmdButton = CommandBars("Standard").Controls.Add(ID:=2956)
ActiveWindow.ViewType = ppViewSlide
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoLinkedOLEObject Then