M
Mark L
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.
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.