« WMI: list of the methods and properties | Home | mySQL: size of the database »
Office: check if PowerPoint is running
Dim objAPP, sMsg
On Error Resume Next
Set objAPP = GetObject(, "PowerPoint.Application")
If TypeName(objAPP) = "Empty" Then
sMsg = "not started"
Else
sMsg = "started"
End If
MsgBox "PowerPoint is " & sMsg, vbInformation, "PowerPoint"
if sMsg = "started" then objAPP.Visible = true
Topics: MS Office, VB, Windows scripts | Submitter: checkthis
Comments
You must be logged in to post a comment.
