VBA how to clean Variables

[help_for_excel]

Hi I am writing VBA code to control powertpoint from Excel

my code is
Private ppt_2 As PowerPoint.Presentation

my question is: How to clean\empty PPt_2 variable,

set ppt_2 = nothing, closes power-point file and I don't want to close the file. Is there any other way to clean variable....


please help...thanks in advance

 

[Norie]

Are you sure that closes the presentation?

As far as I can see all that will happen is you'll lose the reference and 'clean' the variable.

 

[help_for_excel]

I checked and it closes power-point open file.

Is there any other way of cleaning the variable???

please respond.

 

[help_for_excel]

To be put more precisely I am dealing with two powerpoint file from Excel VBA


Option Explicit

Private pptApp As PowerPoint.Application
Private pptPres1 As PowerPoint.Presentation
Private pptPres2 As PowerPoint.Presentation

Private Sub example()

Set pptApp = New PowerPoint.Application
pptApp.Activate
Set pptPres1 = pptApp.Presentations.Open(Range("XXXX"))
Set pptPres2 = pptApp.Presentations.Open(Range("YYYY"))

pptPres1.Save
pptPres1.Close
Set pptPres1 = Nothing

Set pptPres2 = Nothing 'It closes the 2nd presentation file and cleans the variable. But I dont want to close it, just want to clean the variable. So when I am running Macro without this line of code, it runs fine for the first time. But when macro is run second time it doesn't run, because pptPres2 is not cleaned

pptApp.Quit
Set pptApp = Nothing

End Sub


Can anyone please help....I just want to clean pptPresentation2 variable. Don't want to close the pptPres2 file.

 

[Norie]

Can I ask how you checked the file was closed when you used that code?

Did you make PowerPoint visible?

That's good way to check what's happening in the application you are automating.

I can check tomorrow but as far as I see it won't close the file.

To close the file you would use the Close method.

pptPres2.Close

Mind you this would close PowerPoint and all the files open in it.

pptApp.Quit 
Set pptApp = Nothing

 

[help_for_excel]

I think I figure it out the way. this code does the trick.



pptPres1.Save
pptPres1.Close
Set pptPres1 = Nothing

Set pptPres2 = Nothing

Set pptApp = Nothing


thank for helping

 

[Norie]

Doesn't that close pptPres2?