Break all links in PowerPoint slide

[drewbny]

Hi I have a powerpoint slide that contains several charts pulling from excel, and i want to break all links to excel at once..

is there a way to do this in vba?

 

[drewbny]

Hi I have a powerpoint slide that contains several charts pulling from excel, and i want to break all links to excel at once..

is there a way to do this in vba?

i was given this code but it doesnt work.
get compiler error

Sub BreakAllLinks()

Dim oSld As Slide
Dim oSh As Shape

For Each oSld In ActivePresentation.Slides
For Each oSh In oSld.Shapes
If oSh.Type = msoLinkedOLEObject Then
oSh.LinkFormat.BreakLink
End If
Next ' Shape
Next ' Slide

End Sub

 

[Domenic]

Your code, as written, must reside within PowerPoint, not Excel. Where is your code located?

 

[drewbny]

Your code, as written, must reside within PowerPoint, not Excel. Where is your code located?

i had it inside excel. thanks for the heads up!!

 

[drewbny]

Your code, as written, must reside within PowerPoint, not Excel. Where is your code located?

do you know how to make this macro always available for any powerpoint file? id like to use it as if it were I n a personal macro workbook

 

[Domenic]

Have a look at the following link...

Create an ADD-IN with Ribbon buttons that run macros when clicked

From the PowerPoint FAQ: Create an ADD-IN with Ribbon buttons that run macros when clicked

www.rdpslides.com