loading powerpoint as object in powerpoint

[barn]

hi

Is there a way to load another powerpoint presenations
into a powerpoint presentation. I want to do it from a
user form command button click. The idea is to have the
main presentation load in smaller presenations but appear
just to be one big presentation. So far i've got:

Private Sub CommandButton1_Click()
ActiveWindow.Selection.SlideRange.Shapes _
..AddOLEObject(Left:=0, Top:=0, Width:=720, Height:=540,
FileName:="C:\Documents and Settings\bjm\My
Documents\proj_bmt\presentations_nu\codetest\testtemp.ppt"
, Link:=msoTrue).Select
ActiveWindow.Selection.Show
Unload Me
End Sub

it doesn't appear to work. any ideas?

barney

 

[Shyam Pillai]

Just so that I understand you completely...
You wish to insert other presentations as objects into a parent presentation
and activate them during the slide show? Or do you wish to to just launch
others shows into slideshow mode?

 

[barney]

The first option:

I want to insert other presentations as objects into a
parent presentation and activate them during the slide
show.

Any help would be greatly appreciated.

barney

 

[barney]

hi

i got a bit further.

Sub playme1()
Static apppathstored As String
apppathstored = ActivePresentation.Path
apppathstored = ActivePresentation.Path & "\testtemp.ppt"
Set pres1obj = ActivePresentation.Slides
(1).Shapes.AddOLEObject(Left:=0, _
Top:=0, width:=720, height:=540, _
filename:=apppathstored)

With pres1obj
With .AnimationSettings.PlaySettings
.PlayOnEntry = True
.HideWhileNotPlaying = False
End With
End With

' not sure if this bit is correct

Static refpres1obj As Object
refpres1obj = pres1obj
End Sub


the problem now is hiding the inserted ole presentation
object once the user has clicked through it and pressed
exit button with macro - shown below - in the child
presentation:

child sub to call parent macro:

Sub exitpres()
Application.Run "hidechildpresobj"
End Sub

i need to call a sub in the parent something like this
from the parent:

Public Sub hidechildpresobj()
' refpres1obj is stored ref to child presentation created
in sub at top of page.

With refpres1obj
With .AnimationSettings.PlaySettings
.HideWhileNotPlaying = True
End With
End With
End Sub

again any help would be greatly appreciated.

barney