471,122 Members | 2,424 Online
Bytes | Software Development & Data Engineering Community
Post +

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 471,122 software developers and data experts.

vb.net dll won't release powerpoint

Hi,

I am writing some VB.NET code that compiles to a dll. There is some
code within it that manipulates Powerpoint 2003.

The dll I am writing is for smart tags, and I am having trouble because
sometimes Powerpoint is remaining running (powerpnt.exe in Task
Manager). One action of my smart tags calls InsertChart (code below).
The designated line causes powerpoint to remain running even after the
user has manually closed the program--when that line is commented out,
powerpoint exits successfully.

Some quick testing I have done indicates that when my code changes the
active presentation (and would require a save), powerpoint doesn't exit.
If I don't actually change the presentation, it exits fine. (I
replaced the troublesome line below with one that changed the text of a
text box and had the same problem.)

If anyone has some insight into what's going on and how I need to
properly release my references to Powerpoint, I would be most
appreciative!

Thanks!

-Casey

'target is of type Powerpoint.TextRange
Public Sub InsertChart(ByVal target As Object, ByVal imagePath As
String) Implements IOfficeInteract.InsertChart
Dim pptApp As PowerPoint.Application
Dim rng As PowerPoint.TextRange
Dim shp As PowerPoint.Shape

Try
'try to grab powerpoint from target
rng = DirectCast(target, PowerPoint.TextRange)
pptApp = rng.Application
*****THE FOLLOWING LINE CAUSES THE PROBLEM. WHEN IT ISN'T COMMENTED,
POWERPOINT REMAINS RUNNING, WHEN IT IS COMMENTED, POWERPOINT CLOSES
SUCCESSFULLY ********
'shp =
pptApp.ActiveWindow.Selection.SlideRange.Shapes.Ad dPicture(imagePath, _
' Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, _
' 0, 0, 100, 100)

**********************

Catch ex As Exception
MsgBox("PPT:Error inserting chart:" & ex.Message)
End Try

'clean up is important so that references aren't left in memory
Try
If Not pptApp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(pptApp)
End If
If Not rng Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(rng)
End If
If Not shp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(shp)
End If
If Not target Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(target)
End If

Catch ex As Exception
'just eat it at this point
MsgBox("PPT Clean UP ERror: " & ex.Message)
End Try
End Sub
Jul 21 '05 #1
6 3142
This doesn't solve your problem but you might consider a hack.

Save the modified PPT under temp name. Delete the modifed PPT. Then Release
the refs as currently done to make it close.
"C Williams" wrote:
Hi,

I am writing some VB.NET code that compiles to a dll. There is some
code within it that manipulates Powerpoint 2003.

The dll I am writing is for smart tags, and I am having trouble because
sometimes Powerpoint is remaining running (powerpnt.exe in Task
Manager). One action of my smart tags calls InsertChart (code below).
The designated line causes powerpoint to remain running even after the
user has manually closed the program--when that line is commented out,
powerpoint exits successfully.

Some quick testing I have done indicates that when my code changes the
active presentation (and would require a save), powerpoint doesn't exit.
If I don't actually change the presentation, it exits fine. (I
replaced the troublesome line below with one that changed the text of a
text box and had the same problem.)

If anyone has some insight into what's going on and how I need to
properly release my references to Powerpoint, I would be most
appreciative!

Thanks!

-Casey

'target is of type Powerpoint.TextRange
Public Sub InsertChart(ByVal target As Object, ByVal imagePath As
String) Implements IOfficeInteract.InsertChart
Dim pptApp As PowerPoint.Application
Dim rng As PowerPoint.TextRange
Dim shp As PowerPoint.Shape

Try
'try to grab powerpoint from target
rng = DirectCast(target, PowerPoint.TextRange)
pptApp = rng.Application
*****THE FOLLOWING LINE CAUSES THE PROBLEM. WHEN IT ISN'T COMMENTED,
POWERPOINT REMAINS RUNNING, WHEN IT IS COMMENTED, POWERPOINT CLOSES
SUCCESSFULLY ********
'shp =
pptApp.ActiveWindow.Selection.SlideRange.Shapes.Ad dPicture(imagePath, _
' Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, _
' 0, 0, 100, 100)

**********************

Catch ex As Exception
MsgBox("PPT:Error inserting chart:" & ex.Message)
End Try

'clean up is important so that references aren't left in memory
Try
If Not pptApp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(pptApp)
End If
If Not rng Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(rng)
End If
If Not shp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(shp)
End If
If Not target Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(target)
End If

Catch ex As Exception
'just eat it at this point
MsgBox("PPT Clean UP ERror: " & ex.Message)
End Try
End Sub

Jul 21 '05 #2
Hi,

Add GC.Collect after you release the com objects.

Ken
----------------
"C Williams" <no****@thank.you> wrote in message
news:RNotd.5342$Wy.250@trndny06...
Hi,

I am writing some VB.NET code that compiles to a dll. There is some
code within it that manipulates Powerpoint 2003.

The dll I am writing is for smart tags, and I am having trouble because
sometimes Powerpoint is remaining running (powerpnt.exe in Task
Manager). One action of my smart tags calls InsertChart (code below).
The designated line causes powerpoint to remain running even after the
user has manually closed the program--when that line is commented out,
powerpoint exits successfully.

Some quick testing I have done indicates that when my code changes the
active presentation (and would require a save), powerpoint doesn't exit.
If I don't actually change the presentation, it exits fine. (I
replaced the troublesome line below with one that changed the text of a
text box and had the same problem.)

If anyone has some insight into what's going on and how I need to
properly release my references to Powerpoint, I would be most
appreciative!

Thanks!

-Casey

'target is of type Powerpoint.TextRange
Public Sub InsertChart(ByVal target As Object, ByVal imagePath As
String) Implements IOfficeInteract.InsertChart
Dim pptApp As PowerPoint.Application
Dim rng As PowerPoint.TextRange
Dim shp As PowerPoint.Shape

Try
'try to grab powerpoint from target
rng = DirectCast(target, PowerPoint.TextRange)
pptApp = rng.Application
*****THE FOLLOWING LINE CAUSES THE PROBLEM. WHEN IT ISN'T COMMENTED,
POWERPOINT REMAINS RUNNING, WHEN IT IS COMMENTED, POWERPOINT CLOSES
SUCCESSFULLY ********
'shp =
pptApp.ActiveWindow.Selection.SlideRange.Shapes.Ad dPicture(imagePath, _
' Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, _
' 0, 0, 100, 100)

**********************

Catch ex As Exception
MsgBox("PPT:Error inserting chart:" & ex.Message)
End Try

'clean up is important so that references aren't left in memory
Try
If Not pptApp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(pptApp)
End If
If Not rng Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(rng)
End If
If Not shp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(shp)
End If
If Not target Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(target)
End If

Catch ex As Exception
'just eat it at this point
MsgBox("PPT Clean UP ERror: " & ex.Message)
End Try
End Sub
Jul 21 '05 #3
Casey,
Have you tried calling Close and Exit/Quit on your pptApp? I believe
you need to do this before releasing the reference to them. I don't have
the reference up just now so I don't remember whether the call is Exit or
Quit.

Ron Allen
"C Williams" <no****@thank.you> wrote in message
news:RNotd.5342$Wy.250@trndny06...
Hi,

I am writing some VB.NET code that compiles to a dll. There is some code
within it that manipulates Powerpoint 2003.

The dll I am writing is for smart tags, and I am having trouble because
sometimes Powerpoint is remaining running (powerpnt.exe in Task Manager).
One action of my smart tags calls InsertChart (code below). The designated
line causes powerpoint to remain running even after the user has manually
closed the program--when that line is commented out, powerpoint exits
successfully.

Some quick testing I have done indicates that when my code changes the
active presentation (and would require a save), powerpoint doesn't exit.
If I don't actually change the presentation, it exits fine. (I replaced
the troublesome line below with one that changed the text of a text box
and had the same problem.)

If anyone has some insight into what's going on and how I need to properly
release my references to Powerpoint, I would be most appreciative!

Thanks!

-Casey

'target is of type Powerpoint.TextRange
Public Sub InsertChart(ByVal target As Object, ByVal imagePath As
String) Implements IOfficeInteract.InsertChart
Dim pptApp As PowerPoint.Application
Dim rng As PowerPoint.TextRange
Dim shp As PowerPoint.Shape

Try
'try to grab powerpoint from target
rng = DirectCast(target, PowerPoint.TextRange)
pptApp = rng.Application
*****THE FOLLOWING LINE CAUSES THE PROBLEM. WHEN IT ISN'T COMMENTED,
POWERPOINT REMAINS RUNNING, WHEN IT IS COMMENTED, POWERPOINT CLOSES
SUCCESSFULLY ********
'shp =
pptApp.ActiveWindow.Selection.SlideRange.Shapes.Ad dPicture(imagePath, _
' Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, _
' 0, 0, 100, 100)

**********************

Catch ex As Exception
MsgBox("PPT:Error inserting chart:" & ex.Message)
End Try

'clean up is important so that references aren't left in memory
Try
If Not pptApp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(pptApp)
End If
If Not rng Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(rng)
End If
If Not shp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(shp)
End If
If Not target Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(target)
End If

Catch ex As Exception
'just eat it at this point
MsgBox("PPT Clean UP ERror: " & ex.Message)
End Try
End Sub

Jul 21 '05 #4
Thank you, Ken. I'm kicking myself for that one because I WAS garbage
collecting earlier and I removed it for testing reasons but then forgot
to put it back in.

Thanks!

Ken Tucker [MVP] wrote:
Hi,

Add GC.Collect after you release the com objects.

Ken
----------------
"C Williams" <no****@thank.you> wrote in message
news:RNotd.5342$Wy.250@trndny06...
Hi,

I am writing some VB.NET code that compiles to a dll. There is some
code within it that manipulates Powerpoint 2003.

The dll I am writing is for smart tags, and I am having trouble because
sometimes Powerpoint is remaining running (powerpnt.exe in Task
Manager). One action of my smart tags calls InsertChart (code below).
The designated line causes powerpoint to remain running even after the
user has manually closed the program--when that line is commented out,
powerpoint exits successfully.

Some quick testing I have done indicates that when my code changes the
active presentation (and would require a save), powerpoint doesn't exit.
If I don't actually change the presentation, it exits fine. (I
replaced the troublesome line below with one that changed the text of a
text box and had the same problem.)

If anyone has some insight into what's going on and how I need to
properly release my references to Powerpoint, I would be most
appreciative!

Thanks!

-Casey

'target is of type Powerpoint.TextRange
Public Sub InsertChart(ByVal target As Object, ByVal imagePath As
String) Implements IOfficeInteract.InsertChart
Dim pptApp As PowerPoint.Application
Dim rng As PowerPoint.TextRange
Dim shp As PowerPoint.Shape

Try
'try to grab powerpoint from target
rng = DirectCast(target, PowerPoint.TextRange)
pptApp = rng.Application
*****THE FOLLOWING LINE CAUSES THE PROBLEM. WHEN IT ISN'T COMMENTED,
POWERPOINT REMAINS RUNNING, WHEN IT IS COMMENTED, POWERPOINT CLOSES
SUCCESSFULLY ********
'shp =
pptApp.ActiveWindow.Selection.SlideRange.Shapes.Ad dPicture(imagePath, _
' Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, _
' 0, 0, 100, 100)

**********************

Catch ex As Exception
MsgBox("PPT:Error inserting chart:" & ex.Message)
End Try

'clean up is important so that references aren't left in memory
Try
If Not pptApp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(pptApp)
End If
If Not rng Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(rng)
End If
If Not shp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(shp)
End If
If Not target Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(target)
End If

Catch ex As Exception
'just eat it at this point
MsgBox("PPT Clean UP ERror: " & ex.Message)
End Try
End Sub

Jul 21 '05 #5
Hi C Williams,

You are getting close with the previous suggestions, but PowerPoint does not
like to give up without a fight. Use the following set of code at the end of
your method:

ppApp.Quit()
ppApp = DBNull.Value
GC.Collect
GC.WaitForPendingFinalizers()
GC.Collect
GC.WaitForPendingFinalizers()

(then the end of your Try -- Catch -- End Try

One needs to do the Garbage Collection Collect and WaitForPendingFinalizers
methods twice to make sure it clears out everything. Sometimes it does not.

Get a copy of Andrew Whitechapel's book "Microsoft .Net Development for
Microsoft Office", MicrosoftPress, ISBN 0-7356-2132-2. While the book is
heavy on Word and Excel and very light on PowerPoint, Whitechapel does a very
good job of explaining the need for good and complete garbage collection when
using the Office applications.

Good luck and enjoy.

Will
"C Williams" wrote:
Hi,

I am writing some VB.NET code that compiles to a dll. There is some
code within it that manipulates Powerpoint 2003.

The dll I am writing is for smart tags, and I am having trouble because
sometimes Powerpoint is remaining running (powerpnt.exe in Task
Manager). One action of my smart tags calls InsertChart (code below).
The designated line causes powerpoint to remain running even after the
user has manually closed the program--when that line is commented out,
powerpoint exits successfully.

Some quick testing I have done indicates that when my code changes the
active presentation (and would require a save), powerpoint doesn't exit.
If I don't actually change the presentation, it exits fine. (I
replaced the troublesome line below with one that changed the text of a
text box and had the same problem.)

If anyone has some insight into what's going on and how I need to
properly release my references to Powerpoint, I would be most
appreciative!

Thanks!

-Casey

'target is of type Powerpoint.TextRange
Public Sub InsertChart(ByVal target As Object, ByVal imagePath As
String) Implements IOfficeInteract.InsertChart
Dim pptApp As PowerPoint.Application
Dim rng As PowerPoint.TextRange
Dim shp As PowerPoint.Shape

Try
'try to grab powerpoint from target
rng = DirectCast(target, PowerPoint.TextRange)
pptApp = rng.Application
*****THE FOLLOWING LINE CAUSES THE PROBLEM. WHEN IT ISN'T COMMENTED,
POWERPOINT REMAINS RUNNING, WHEN IT IS COMMENTED, POWERPOINT CLOSES
SUCCESSFULLY ********
'shp =
pptApp.ActiveWindow.Selection.SlideRange.Shapes.Ad dPicture(imagePath, _
' Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, _
' 0, 0, 100, 100)

**********************

Catch ex As Exception
MsgBox("PPT:Error inserting chart:" & ex.Message)
End Try

'clean up is important so that references aren't left in memory
Try
If Not pptApp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(pptApp)
End If
If Not rng Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(rng)
End If
If Not shp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(shp)
End If
If Not target Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(target)
End If

Catch ex As Exception
'just eat it at this point
MsgBox("PPT Clean UP ERror: " & ex.Message)
End Try
End Sub

Jul 21 '05 #6
One correction to my previous listing of 1/3/2005:

Change line 2 from ppApp = DBNull.Value to ppApp = Nothing

ppApp = DBNull.Value will cause an InvalidCastException. Of course, Option
Strict turned on will catch the casting exceptions.

Will

"WillRead" wrote:
Hi C Williams,

You are getting close with the previous suggestions, but PowerPoint does not
like to give up without a fight. Use the following set of code at the end of
your method:

ppApp.Quit()
ppApp = DBNull.Value
GC.Collect
GC.WaitForPendingFinalizers()
GC.Collect
GC.WaitForPendingFinalizers()

(then the end of your Try -- Catch -- End Try

One needs to do the Garbage Collection Collect and WaitForPendingFinalizers
methods twice to make sure it clears out everything. Sometimes it does not.

Get a copy of Andrew Whitechapel's book "Microsoft .Net Development for
Microsoft Office", MicrosoftPress, ISBN 0-7356-2132-2. While the book is
heavy on Word and Excel and very light on PowerPoint, Whitechapel does a very
good job of explaining the need for good and complete garbage collection when
using the Office applications.

Good luck and enjoy.

Will
"C Williams" wrote:
Hi,

I am writing some VB.NET code that compiles to a dll. There is some
code within it that manipulates Powerpoint 2003.

The dll I am writing is for smart tags, and I am having trouble because
sometimes Powerpoint is remaining running (powerpnt.exe in Task
Manager). One action of my smart tags calls InsertChart (code below).
The designated line causes powerpoint to remain running even after the
user has manually closed the program--when that line is commented out,
powerpoint exits successfully.

Some quick testing I have done indicates that when my code changes the
active presentation (and would require a save), powerpoint doesn't exit.
If I don't actually change the presentation, it exits fine. (I
replaced the troublesome line below with one that changed the text of a
text box and had the same problem.)

If anyone has some insight into what's going on and how I need to
properly release my references to Powerpoint, I would be most
appreciative!

Thanks!

-Casey

'target is of type Powerpoint.TextRange
Public Sub InsertChart(ByVal target As Object, ByVal imagePath As
String) Implements IOfficeInteract.InsertChart
Dim pptApp As PowerPoint.Application
Dim rng As PowerPoint.TextRange
Dim shp As PowerPoint.Shape

Try
'try to grab powerpoint from target
rng = DirectCast(target, PowerPoint.TextRange)
pptApp = rng.Application
*****THE FOLLOWING LINE CAUSES THE PROBLEM. WHEN IT ISN'T COMMENTED,
POWERPOINT REMAINS RUNNING, WHEN IT IS COMMENTED, POWERPOINT CLOSES
SUCCESSFULLY ********
'shp =
pptApp.ActiveWindow.Selection.SlideRange.Shapes.Ad dPicture(imagePath, _
' Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, _
' 0, 0, 100, 100)

**********************

Catch ex As Exception
MsgBox("PPT:Error inserting chart:" & ex.Message)
End Try

'clean up is important so that references aren't left in memory
Try
If Not pptApp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(pptApp)
End If
If Not rng Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(rng)
End If
If Not shp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(shp)
End If
If Not target Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComO bject(target)
End If

Catch ex As Exception
'just eat it at this point
MsgBox("PPT Clean UP ERror: " & ex.Message)
End Try
End Sub

Jul 21 '05 #7

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

2 posts views Thread by WillRead | last post: by
reply views Thread by Marc Eggenberger | last post: by
8 posts views Thread by C Williams | last post: by
1 post views Thread by chrizstone | last post: by

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.