Presentation open?

[DeeDee]

I have a vb form that works like Powerpoint slide sorter mode. Is it possible to check which presentation the slide I click on belongs to? I would like to see if that presentation is open. If not, create it. If so, just go to the clicked slide. Thanks.<br>

 

[MikeLacey]

DeeDee,<br><br>We'll need a little more information please. Could you tell us a bit more about your vb form and exactly what you'd like to find out? <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a><br>

 

[DeeDee]

The form has a control array of picture boxes that contain the powerpoint slide images.&nbsp;&nbsp;I want to click on the picturebox, check to see which presentation the slide belongs to.&nbsp;&nbsp;If the presentation it belongs to is not open, open it.&nbsp;&nbsp;If it is open, show the clicked slide in slide show mode.&nbsp;&nbsp;This is to work on a dual monitor system.&nbsp;&nbsp;It works right now except every time you click a picture, a new instance of powerpoint is opened and stays open until you&nbsp;&nbsp;&quot;end show&quot;.&nbsp;&nbsp;This is taking up too much memory, and becomes VERY slow after you open about 5 slides.&nbsp;&nbsp;Here's the code I have right now:<br><FONT FACE=monospace><br>Private Sub PicBox_Click(Index As Integer)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim ppApp<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set ppApp = CreateObject(&quot;Powerpoint.Application&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' Make it visible.<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ppApp.Visible = True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' Add a new presentation.<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim ppPres As PowerPoint.Presentation<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set ppPres = ppApp.Presentations.Open _ (MDIForm1.CommonDialog1.FileName)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ppApp.ActiveWindow.View.GotoSlide (Index)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ppApp.WindowState = ppWindowMinimized<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ppPres.SlideShowSettings.Run<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ppPres.SlideShowWindow.View.GotoSlide (Index)<br>End Sub </font>