I have about 300 powerpoint files that have advance slide timer on them and I want to remove them so that it does not advance when I open them. How can I do this with vba, so i don't have to open each one individually to do this?
I have about 300 powerpoint files that have advance slide timer on them and I want to remove them so that it does not advance when I open them. How can I do this with vba, so i don't have to open each one individually to do this?
IF you mean slides are set to advance on time not on click
Put a COPY of some of the files in a folder called PPTFILES on your desktop and try this code.
Sub Not_Auto() Dim opres As Presentation Dim strFile As String Dim strFolder As String Dim strSpec As String Dim osld As Slide strSpec = "*.pp*" strFolder = Environ("USERPROFILE") & "/Desktop/PPTFILES/" strFile = Dir$(strFolder & strSpec) While strFile <> "" Set opres = Presentations.Open(strFolder & strFile) Set osld = opres.Slides(1) osld.Select If Not CommandBars.GetPressedMso("SlideTransitionOnMouseClick") Then _ CommandBars.ExecuteMso ("SlideTransitionOnMouseClick") DoEvents If CommandBars.GetPressedMso("SlideTransitionAutomaticallyAfter") Then _ CommandBars.ExecuteMso ("SlideTransitionAutomaticallyAfter") DoEvents CommandBars.ExecuteMso ("SlideTransitionApplyToAll") DoEvents opres.Save opres.Close strFile = Dir() Wend End Sub
John Wilson
Microsoft PowerPoint MVP
Amazing Free PowerPoint Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html
No, but did you say you had a mac?
John Wilson
Microsoft PowerPoint MVP
Amazing Free PowerPoint Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html
I think it's obvious I did not, but I guess I should have. So the now obvious question is, is there a way to do what I want on a MAC or do i need to move the files to a pc and run it there then copy the files back?
You should have and then I wouldn't have wasted an hour!
On a Mac I think you would need to use AppleScript but I am not a Mac programmer.
If you have a PC I would try it there with a few files only to start with.
John Wilson
Microsoft PowerPoint MVP
Amazing Free PowerPoint Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html