PowerPoint: How to break all links before saving

[Michel]

G'day,

This question is similar to " EXCEL: How to break all links before saving"

http://www.mjtnet.com/usergroup/viewtopic.php?p=30570

I have PP with links and wish to BREAK all links before saving.

Original file: My_PowerPoint_with_links
New file: My_PowerPoint_without_links

Thanx
... Michel
PS: Love MacroScheduler-!

[Marcus Tettmar]

Let me reverse the question. How do you do it manually? We can automate a manual process. But if there's no way to do it anyway, we can't exactly automate. Let us know what you would normally do yourself and then we can try and help yo

[Michel]

SOLVED -


Used this macro within the PP document.


' ---------------------------------------------------------------------
' Copyright ©1999-2007, Shyam Pillai, All Rights Reserved.
' ---------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' ---------------------------------------------------------------------

Sub BreakLinks()
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
ActiveWindow.View.GotoSlide oSld.SlideIndex
oShp.Select
Application.CommandBars.FindControl(ID:=2956).Execute
' Do not forget to add this line else you will get erratic
' results since the code execution does not halt while menu
' command is executed hence we have to let the execution
' complete before proceeding.
DoEvents
End If
Next oShp
Next oSld
oCmdButton.Delete
End Sub