Formatting Slide Names

So I want to export the slides from a Powerpoint into separate files. By default, each of these slides are saved as Slide 1, Slide 2, etc. I would like to rename the slides within Powerpoint so I don't have to rename them in Explorer after they have been created.

[Doctor]

Unfortunately When you select Save as > Jpeg powerpoint simply gives all the slide names Slide1, Slide2, Slide3 etc.

The only way to change this is manually

[John Wilson]

If you use a vba module you can specify the name

Eg This saves to a folder new on the desktop and clls the slides "myslide1" etc

Sub exportit()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
osld.Export "C:\Documents and Settings\John\Desktop\new\" & "myslide" _
& osld.SlideIndex & ".jpg", "jpg"
Next
End Sub