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