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
Related examples in the same category