Ready to get started with anonymous questions today? It's easy! Learn more.
Sub pre() Dim myPresentation As Presentation 'Set myPresentation = Presentations.Add(WithWindow:=msoFalse) 'hidden Set myPresentation = Presentations.Add(WithWindow:=msoTrue) 'visible Call Module1.main End Sub Sub main() Dim objPresentation As Presentation Dim i As Integer 'open the target presentation Set objPresentation = Presentations.Open("c:\temp\Test import2.pptx") For i = 1 To objPresentation.Slides.Count objPresentation.Slides.Item(i).Copy Presentations.Item(1).Slides.Paste Next i objPresentation.Close 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.