I am trying to link a Word document(Office 97) with a powerpoint presentation
but am having trouble. In my Word document, I bring up a form. Clicking a
button on
the form loads a single-slide Powerpoint presentation in which a Custom
Animation runs.
So far so good. But…
On the slide is a shape which I want to be able to click to repeat the
Custom Animation.
In the powerpointpoint presentation I have a macro which works fine when the
Powerpoint presentation is run as a standalone, but nothing happens when I
click the object after it's run from the form in Word.
Sub PlayJourneyAgain()
  SlideShowWindows(1).View.GotoSlide 1
End Sub

I am trying to assign the action settings for the shape (16) 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. In fact, nothing happens.
I'm obviously missing something, either here or in the PP Presentation.