Run a macro during a presentation

[fred]

Hi,

I would like to run a simple macro during a presentation. It works when running it in "slide view" mode. It's the following simple macro:

Sub Test()

With ActiveWindow.Selection.SlideRange.Shapes("Puzzle3" )
.ScaleWidth 1.33, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.39, msoFalse, msoScaleFromTopLeft
.IncrementRotation -30.65
End With

End Sub

Is there a reason why this doesn't work when I try to execute it when I'm in "slide show" mode?

Cheers,

Fred

[John Wilson]

You cannot have a selection in show mode so your code will not work in this mode

Try this code

Sub Test(oshp As Shape)
With oshp
.ScaleWidth 1.33, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.39, msoFalse, msoScaleFromTopLeft
.IncrementRotation -30.65
End With
End Sub

Give the puzzle shape an action of run macro "test" and click on the puzzle shape to run