embedding slides in a form

[RSGB]

Hi

I know how create an instance of powerpoint and load and manipulate presentations and slides but I now need to show a powerpoint slide in a form and I'm stuck...

I've embedded a powerpoint presentation as an OLE object in a form but it shows the first slide. How can I make it show slide x in the presentation?

I've tried:

Dim MasterPres As powerpoint.Presentation
Dim MySlide As powerpoint.Slide

Set MasterPres = MyForm.MySlide.object 'sets to the embedded OLE Presentation

Set MySlide = MasterPres.Slides(3) 'sets to the third slide

MasterPres.Slides(3).Select 'SAYS VIEW DOES NOT SUPPORT SELECT...


Thanks for your consideration

RSGB

 

[RSGB]

OK I managed to work out a way to do it myself but it's not
the most elegant, basically copy the slide I want to show and delete everything then paste it back in:


MasterPres.Slides.Range(3).Copy
Do Until MasterPres.Slides.Count = 0
MasterPres.Slides.Range(1).Delete
Loop
MasterPres.Slides.Paste


Plus it's not very quick. Any improvements?

Also I now have a really weird problem. I'm internationalising the app so using Arial Unicode MS font throughout. However when the slide is shown in the form any hiragana/tamil etc text is shown as ??? though activating the chart shows I've pasted the unicode data correctly. Any thoughts on this too much appreciated.

Cheers

RSGB