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"
sMsg = "started"
End If

MsgBox "PowerPoint is " & sMsg, vbInformation, "PowerPoint"

if sMsg = "started" then objAPP.Visible = true

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.