Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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