Insertng slide from another presentation into active after selected slide

  • Thread starter Thread starter Tyron
  • Start date Start date
T

Tyron

Cant seem to get this one right, can anybody help please

Sub TabPage()
With Presentations.Open("G:\Tyronne Soanes\Testingb.ppt", msoFalse)
.Slides(70).Copy
.Close
End With
ActivePresentation.Slides.Paste
 
PROBLEM, EXACTLY, AGREE MORE ONE WIDE SHAPE TELL ?
--
Güzelliğin Beş Para Etmez,
BendeKi AÅŸk Olmasa....;)


"Tyron":
 
What about:

Sub TabPage()
ActivePresentation.Slides.InsertFromFile _
"G:\Tyronne Soanes\Testingb.ppt", 3, 70, 70
End Sub

This will insert slide 70 of your file after slide 3 of your current
file. Change the 3 to something else to make put it after a different
slide.

--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/
 
Sorry maybe i did not expalin myself clearly. I need the slide to be
inserted after the current selected slide
 
If you want to run this during Slide Show view, you can use the
following. If you want to run this during Edit/Normal view, uncomment the
third line and comment the line after it.

Sub TabPage()
Dim curSlide As Long
'curSlide = ActiveWindow.Selection.SlideRange(1).SlideIndex
curSlide = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
ActivePresentation.Slides.InsertFromFile _
"G:\Tyronne Soanes\Testingb.ppt", curSlide, 70, 70
End Sub


--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/
 
Back
Top