How to close an active presentation that is open in MS PowerPoint in VB.net

Question

We have designed Microsoft Addins for MS PowerPoint 2019 written in VB.net. There we have taken a counter (pptCounter) which increases whenever a presentation (either existing or new) opens. So we want to delete this open presentation after the counter becomes more than 1.But it didn't close the open file.

We have used this below given snippet :

Private Sub WorkWithDocument(ByVal Doc As Microsoft.Office.Interop.PowerPoint.Presentation) Handles Application.PresentationOpen

If (pptCounter > 1) Then

Globals.Connect.Application.ActivePresentation.Close()

End If

End Sub Here is some more information about which environment I'm working in:

Operating System : Microsoft Windows 10 Pro

Code Editor : Visual Studio 2019

Technology : Vb.net(.Net Framewor

Answer 1

You named Doc like inside parametr your procedure.
Try to close it or set it to global variable as object collection to do something with it
or if you have multiple PP open and you want to close it all, then find handles of PP application and close it.

Regards

Answer 2

You named Doc like inside parametr your procedure.
Try to close it or set it to global variable as object collection to do something with it
or if you have multiple PP open and you want to close it all, then find handles of PP application and close it.

Regards