Return the name of the open PPT file - VBA

[sanrv1f]

I need macro that lists the of names of the ppt files that are currently open, I also need the macro to update the list when I open a new ppt file,

 

[sanrv1f]

I have got this from searching the board,

Sub InstanceCount()
Dim objList As Object, objType As Object, strObj$
strObj = "Powerpnt.exe"
Set objType = GetObject("winmgmts:").ExecQuery("select * from win32_process where name='" & strObj & "'")
If objType.Count > 1 Then
MsgBox objType.Count & " Excel instances are running on your system.", , "More than one instance"
Else
MsgBox "Only this instance is running on your system.", , "One and done"
End If
End Sub

this checks, if Powerpoint is open, and counts the instances,

how can I modify this to return the file name to a cell,
assuming that there would be only one PPT open at any point in time

 

[tusharm]

The PowerPoint application has a Presentations property that returns all open presentations. Write a routine that loops through that collection. PP also has an event, PresentationOpen. Write an event procedure for that event.

 

[tusharm]

See my article in the MSKB:
How to safely instantiate another Office application and close it only if you started it
http://support.microsoft.com/kb/555191

I have got this from searching the board,

Sub InstanceCount()
Dim objList As Object, objType As Object, strObj$
strObj = "Powerpnt.exe"
Set objType = GetObject("winmgmts:").ExecQuery("select * from win32_process where name='" & strObj & "'")
If objType.Count > 1 Then
MsgBox objType.Count & " Excel instances are running on your system.", , "More than one instance"
Else
MsgBox "Only this instance is running on your system.", , "One and done"
End If
End Sub

this checks, if Powerpoint is open, and counts the instances,

how can I modify this to return the file name to a cell,
assuming that there would be only one PPT open at any point in time

 

[sanrv1f]

Tushar,

Thanks for that advise and the links, that helped me to change my view at the problem, I will post back once I design solution

 

[sanrv1f]

ok, here is the first step,

Sub StartOtherApp()
    Dim ppApp As PowerPoint.Application, IStartedPP As Boolean
    On Error Resume Next
    Set ppApp = GetObject(, "powerpoint.application")
    On Error GoTo 0
    If ppApp Is Nothing Then
        IStartedPP = True
        Set ppApp = CreateObject("powerpoint.application")
        End If
    ppApp.Open "D:\Documents and Settings\sankaranarayanan ven\My Documents\san\my\test\Intake Report_AUO.ppt"
    
'    If IStartedPP Then
'        ppApp.Quit
'        End If
'    Set ppApp = Nothing
    End Sub

Im getting "user defiend type not-defined error on the very first line
am I missing any reference to a library ?