twnty2
08-01-2011, 11:27 PM
Hi,
i currently use the following macro to add slides to my presentation from other presentations
Sub FI_EconomicUpdate()
If ActiveWindow.Selection.Type = ppSelectionNone Then
ActiveWindow.ViewType = ppViewSlide
ActiveWindow.ViewType = ppViewSlideSorter
If ActiveWindow.Selection.Type = ppSelectionSlides Then
CurrentSlideIndex = ActiveWindow.Selection.SlideRange.SlideIndex
ActivePresentation.Slides.InsertFromFile _
"S:\FILENAME.ppt", CurentSlideIndex, 1, Last
ActiveWindow.ViewType = ppViewNormal
Else
CurrentSlideIndex = 0 ' no slides
End If
Else
CurrentSlideIndex = ActiveWindow.Selection.SlideRange.SlideIndex
End If
I want to use this same macro for adding another presentation (Pres A) into my current presentation (Pres B) - However Pres A changes in size from month to month and thus the slide index will always need changing - is there a work around?
i currently use the following macro to add slides to my presentation from other presentations
Sub FI_EconomicUpdate()
If ActiveWindow.Selection.Type = ppSelectionNone Then
ActiveWindow.ViewType = ppViewSlide
ActiveWindow.ViewType = ppViewSlideSorter
If ActiveWindow.Selection.Type = ppSelectionSlides Then
CurrentSlideIndex = ActiveWindow.Selection.SlideRange.SlideIndex
ActivePresentation.Slides.InsertFromFile _
"S:\FILENAME.ppt", CurentSlideIndex, 1, Last
ActiveWindow.ViewType = ppViewNormal
Else
CurrentSlideIndex = 0 ' no slides
End If
Else
CurrentSlideIndex = ActiveWindow.Selection.SlideRange.SlideIndex
End If
I want to use this same macro for adding another presentation (Pres A) into my current presentation (Pres B) - However Pres A changes in size from month to month and thus the slide index will always need changing - is there a work around?