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 6 3369
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
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
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
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
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
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 This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Ata |
last post by:
Hello,
I am trying to copy the contents of the output of SQL Reporting Services to
a PowerPoint slide. For this, I am using SQL Reporting Services to obtain an
IMAGE stream, which I paste to the...
|
by: WillRead |
last post by:
I have a VB.Net application and a PowerPoint presentation explaining how each
form in the application works, etc.. I would like to select and display the
slide appropriate for each form by pressing...
|
by: Colleyville Alan |
last post by:
I have an app that uses Access to grab various PowerPoint slides using the
followhyperlink command. I have set the PPT window to run in a minimized
state:
FollowHyperlink link
Set oPres =...
|
by: Joseph |
last post by:
I am trying to open a 3 powerpoint presentation simultaneously afte
each other without interruption, the operator of the application doe
not need to notice anything or interfere in the operation of...
|
by: Marc Eggenberger |
last post by:
Hi there.
I have an webapp (asp.net) which should use powerpoint to create a
presentation and then send that presentation to the user.
I'm using VS2003 and Office2003 (project req.).
The...
|
by: Rut |
last post by:
Does anyone know how to start powerpoint from vb.net without the ppt
screen appearing. I want to keep it hidden? Using this code:
Try
pp = New PowerPoint.Application
pp.Visible =...
|
by: C Williams |
last post by:
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...
|
by: chrizstone |
last post by:
Hi Guys,
What i want to do is:
I want to create a Slide programmatically where a Table is on it! Here´s my Code:
String strTemplate;
strTemplate = template;
String...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
| |