PPT97: Sample Code to Copy All Objects to a New Presentation (176525)

MORE INFORMATION

Sample Visual Basic Procedure

Sub CopyPaste()

      ' Declare variables.
      Dim intCount As Long
      Dim intLoop As Long

      ' Returns the number of slides in the damaged presentation.
      intCount = ActivePresentation.Slides.Count

      ' Creates new, blank presentation named "Newfile". Then
      ' adds a new blank slide in the first index position.
      Presentations.Add.SaveAs "Newfile"
      Presentations("Newfile").Slides.Add 1, ppLayoutBlank

      ' Loops through count of slides.
      For intLoop = 1 To intCount

         ' After creating the new presentation, the damaged
         ' presentation automatically becomes the second window
         ' index item in the PowerPoint window. This line of
         ' code switches to the damaged presentation.
         Windows.Item(2).Activate
         ActiveWindow.View.GotoSlide (intLoop)

         ' Selects and copies objects on active slide.
         ActiveWindow.Selection.SlideRange.Shapes.SelectAll
         ActiveWindow.Selection.Copy

         ' After switching to the new presentation, the index
         ' position of the two presentations swaps, so to go
         ' back to the new presentation, you must go to the second
         ' index position in the windows item list.
         Windows.Item(2).Activate
         ActiveWindow.View.GotoSlide (intLoop)

         ' Pastes objects to active slide in new presentation.
         ActiveWindow.View.Paste

         ' Adds new, blank slide to new presentation if there are
         ' more slides to process.
         If intLoop < intCount Then
            Presentations("Newfile").Slides.Add intLoop + 1, ppLayoutBlank
         End If
      Next intLoop

      ' Tells user that operation has completed.
      MsgBox "Operation Complete!"

   End Sub