Not sure what happened there. Here's the code:
Sub BreakLinks()
Dim oSld As Slide
Dim oShp As Shape
Dim oCmdButton As CommandBarButton
Set oCmdButton = CommandBars("Standard").Co
ActiveWindow.ViewType = ppViewSlide
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoLinkedOLEObject Then
'ActiveWindow.View.GotoSli
oShp.Select
Application.CommandBars.Fi
DoEvents
End If
Next oShp
Next oSld
oCmdButton.Delete
End Sub
Main Topics
Browse All Topics





by: roryaPosted on 2009-06-17 at 02:39:36ID: 24646409
No code attached... :)