Fill the MRU (Most Recently Used) list with bogus file names
PowerPoint shows the most recently used (MRU) files in a list on the File menu.
You may want to hide the names of recently used files for one reason or another.
Or you may want to prevent PPT from trying to access a drive (floppy, CD, network share) that's no longer available.
The following simple-minded little macro simply creates a new blank presentation then saves it multiple times as 1.ppt, 2.ppt ... 9.ppt, then closes the file.
That's enough to "stuff" the MRU list with bogus filenames, as it never contains more than 9 entries.
In PowerPoint 97, anyhow. But PowerPoint 2000 and later outsmart us: when macro code saves files, they don't get added to the MRU list. So we have two versions of this little macro, one for 2000 and up, one for 97.
In 2000 and up, you'll need to run the macro to create the files, then manually save and close each one before it appears on the MRU list.
Hint: use Ctl+S to Save, then Alt+F, C to close each file.
Sub StuffTheMRU2000() ' Use this with PPT 2000 and later Dim DummyFilePath As String Dim x As Long Dim oPres As Presentation ' Edit this as you wish, but it MUST end with backslash ' and it should always be a path on the local hard drive DummyFilePath = "c:\temp\" ' save it nine times to stuff the MRU list For x = 1 To 9 ' Create a new presentation Set oPres = Presentations.Add(msoTrue) ' Add a slide to it Call oPres.Slides.Add(1, ppLayoutBlank) ' Save it so it has a name ActivePresentation.SaveAs FileName:=DummyFilePath & "Dummy" & CStr(x) & ".ppt" Next Set oPres = Nothing MsgBox ("Done!" & vbCrLf _ & "Now save each file once again manually before closing it.") End Sub
Sub StuffTheMRU97() ' Use this for PowerPoint 97 Dim ThePath as String Dim i as Integer ' Edit this as you wish: ThePath = "C:\" ' For example ' ThePath = "C:\BogusFiles\NonEntity" would give C:\BogusFiles\NonEntity1.ppt and so on ' Create a new presentation Presentations.Add WithWindow:=msoTrue ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex For i = 1 to 9 ActivePresentation.SaveAs FileName:=ThePath & cstr(i) & ".ppt" Next i ' Close the presentation ActiveWindow.Close ' Delete the files On error resume next For i = 1 to 9 Kill(ThePath & Cstr(i) & ".ppt") Next i End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code.