web analytics

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

Leave a Reply

You can use these HTML tags

<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

  

  

  

Categories

A sample text widget

Etiam pulvinar consectetur dolor sed malesuada. Ut convallis euismod dolor nec pretium. Nunc ut tristique massa.

Nam sodales mi vitae dolor ullamcorper et vulputate enim accumsan. Morbi orci magna, tincidunt vitae molestie nec, molestie at mi. Nulla nulla lorem, suscipit in posuere in, interdum non magna.