Insert Slides using VBA (PPT) 1

[moontho]

I'm trying to insert predefined slides from an other presentation and have found the following code

ActivePresentation.Slides.InsertFromFile _
"c:\ppt\sales.ppt", 2, 3, 6

which inserts the specified slides after slide 2, but how do i make it so it'll insert the files after whatever slide the user is on?

Many thanks

thom

 

[Nikita6003]

thom,

use [tt]ActiveWindow.View.Slide.SlideIndex[/tt] to return the slide index number (long) of the slide currently visible in the active presentation.

ActivePresentation.Slides.InsertFromFile "<FileName.ppt>", ActiveWindow.View.Slide.SlideIndex

HTH

Cheers
Nikki
Look, mommy, I'm flying!

 

[moontho]

thanks for this, but now i'm uncertain how to specify that I only want 1 slide inserted, e.g. slide 5

many thanks

Thom

 

[Nikita6003]

thom

just specify the index of the slide you want to insert:

ActivePresentation.Slides.InsertFromFile "YourFileName.ppt", ActiveWindow.View.Slide.SlideIndex, 5, 5
[/code
will insert slide5
[code]ActivePresentation.Slides.InsertFromFile "YourFileName.ppt", ActiveWindow.View.Slide.SlideIndex, 5

will insert all slides startting with slide 5

HTH

Cheers
Nikki
Look, mommy, I'm flying!

 

[moontho]

Fantasic. Job done. Have a star.

Many thanks