Hi Neil,

I would like to thank you very much. Your suggestion worked perfectly.

Best regards, Anderson

Anderson,

You can do that programmatically with the SetOptions command. First you need a handle to your Notebook. You can specify it multiple ways (see Guide to Notebook programming. Lets get all of the notebooks and pick one.

mybooks = Notebooks[]
slideshow = mybooks[[3]]

Now look at the options:

In[72]:= Options[slideshow]

Out[72]= {
 ScreenStyleEnvironment -> "Working", 
 StyleDefinitions -> "Default.nb", 
 WindowMargins -> {{42, Automatic}, {Automatic, 24}}, 
 WindowSize -> {808, 751}}

Now change the show environment:

SetOptions[slideshow], ScreenStyleEnvironment -> "Working"]

or

SetOptions[slideshow], ScreenStyleEnvironment -> "SlideShow"]

Using this you can make a program to automatically process your slide shows.

Regards,

Neil