Stay away from Speed Up Computer Programs that do more harm than good.
Try these tips instead.
Step by step instructions in trouble shooting Windows Performance issues.
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.
|Excel - Summing a column based on criteria from another column||5||49|
|drag and drop (but keep all) lines||11||46|
|Formatting a Word Content Control||13||34|
|Excel VBA to convert a string into a formula||19||12|
Join the community of 500,000 technology professionals and ask your questions.