Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Sub SlideCopy() ' Variable declarations. Dim SourceView, answer As Integer Dim SourceSlides, NumPres, x As Long ' Stores the current view of the source presentation. SourceView = ActiveWindow.ViewType ' Count the number of slides in source presentation. SourceSlides = objPresentation.Slides.Count 'objPresentatio.Slides.Count ' ' Create a new presentation for the designation. Presentations.Add Set objPresentation2 = ActivePresentation With objPresentation2.PageSetup .SlideHeight = objPresentation.PageSetup.SlideHeight .SlideWidth = objPresentation.PageSetup.SlideWidth End With ' Switch to the source presentation. objPresentation.Windows(1).Activate ' Loop through all the slides and copy them to destination one by one. For x = 1 To SourceSlides ' Select the first slide in the presentation and copy it. objPresentation.Slides(1).Copy 'ActiveWindow.Selection.Copy ' Switch to destination presentation. objPresentation2.Windows(1).Activate ' Create a new slide. objPresentation2.Slides.Add _ objPresentation2.Slides.Count + 1, ppLayoutBlank ' Make sure the new presentation is slide view. If ActiveWindow.ViewType <> ppViewSlide Then ActiveWindow.ViewType = ppViewSlide End If ' Switch to the proper slide. ActiveWindow.View.GotoSlide Index:=objPresentation2.Slides.Count ' Paste the slide. objPresentation2.Slides.Paste 'ActiveWindow.View.Paste ' Unselect the object. ActiveWindow.Selection.Unselect ' Switch to source. objPresentation.Windows(1).Activate Next x ' Restore the current view to source. ActiveWindow.ViewType = SourceView End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.