PowerPoint Show NOT Full screen

Several people have asked me "Is it possible to have a slide show NOT Full Screen but also NOT running in Window mode which adds a title bar.

In code you can do this using the legacy method which runs code on slide change.

To make this work reliably you also need to add a Cotrol from the control Toolbox (e.g. Command Button) and use the selection pane to set it to NOT VISIBLE (or move off slide).

Add this code and run the show. It is simple to modify the code to get a diffent size / position by changing the Left / Top / Height / Width values.

The Code

Sub OnSlideShowPageChange(SW As SlideShowWindow)
' Don't forget to add the Command Button but you do not need to click it!
Dim b_done As Boolean
MsgBox "Y"
If SW.View.CurrentShowPosition = 1 And b_done = False Then
With SlideShowWindows(1)
.Left = 0
.Top = 0
.Height = .Height / 2
.Width = .Width / 2
b_done = True
End With
ActivePresentation.Windows(1).WindowState = ppWindowMinimized
End If
End Sub