Insertng slide from another presentation into active after selected slide

[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

 

[Mehmet_ky]

PROBLEM, EXACTLY, AGREE MORE ONE WIDE SHAPE TELL ?
--
Güzelliğin Beş Para Etmez,
BendeKi AÅŸk Olmasa....


"Tyron":

 

[David M. Marcovitz]

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/

 

[Tyron]

Sorry maybe i did not expalin myself clearly. I need the slide to be
inserted after the current selected slide

 

[David M. Marcovitz]

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/