Excel -> PowerPoint multiple presentations

macropod · #2 03-15-2014, 08:55 PM

You could probably use a macro like the following in your master PowerPoint file, to both update & break the links, then save the updated file:

Code:

Sub Demo()
Dim Sld As Slide, Shp As Shape
With ActivePresentation
  .UpdateLinks
  On Error Resume Next
  For Each Sld In .Slides
    For Each Shp In Sld.Shapes
      With Shp
        .LinkFormat.BreakLink
      End With
    Next
  Next
  On Error GoTo 0
  .SaveAs FileName:=Left(.FullName, InStrRev(.FullName, ".")) & _
    Format(Now, "YYYYMMDD") & ".pptx", Fileformat:=ppSaveAsDefault
End With
End Sub

The above code saves the updated presentation file back to the same folder, with the date appended to the filename in YYYYMMDD format.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
PowerPoint 2007 process hangs	ChrisK	PowerPoint	6	02-03-2012 02:00 PM
I dig music with Powerpoint presentations but ......	jackdashack	PowerPoint	1	11-26-2010 11:14 PM
Enhancing PowerPoint Presentations	MarkStrobel3367	PowerPoint	1	11-16-2010 08:28 AM
Aaxatech p1 for powerpoint presentations	hardcoresoft	PowerPoint	3	02-19-2010 11:08 AM
Web Site for PowerPoint Presentations	Flexibase	PowerPoint	3	02-14-2010 12:32 PM