Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Finding a Slide by Its ID Number
Sub addFromFile()
    Dim TargetSlide As Long
    TargetSlide = ActivePresentation.Slides.Add(Index:=5,    Layout:=ppLayoutFourObjects).SlideID
    Presentations("C.ppt").Slides.InsertFromFile _
        FileName:="C:\A.ppt", Index:=3
    ActivePresentation.Slides.FindBySlideID(TargetSlide).ApplyTemplate _
        FileName:="C:\B.pot"
End Sub