ppt.Shape.Action settings??

[Mark L]

I am in a Word document(Office 97). I bring up a form. Clicking a button on
the form loads a single-slide Powerpoint presentation in which runs a Custom
Animation.
So far so good. But…
On the slide is an object which I want to be able to click to repeat the
Custom Animation. I am trying to assign the action settings from the form.
The macro works fine when the Powerpoint presentation is run on its own,
but nothing happens when I click the object after it's run from the form in
Word.

This is the bones of the Sub on the form:

Private Sub cmdRunPptPres_Click()
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation

Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Open("c:\Maceton\Journey.ppt")

PPPres.SlideShowSettings.Run ‘works to here

‘this bit was supposed to set the action setting
With PPPres.Slides(1).Shapes(16).ActionSettings(ppMouseClick)
.Action = ppActionRunMacro
.Run = "PlayJourneyAgain"
.AnimateAction = True
End With

End Sub

However, clicking Shape 16 does not run the Macro. I'm obviously missing
something, either here or in the PP Presentation.