Issue with a custom action deleting a PPT add-in
HI all,
I made a transform for Snagit 8.x. It works fine for most install scenarios inside my company except one. If I have Vista and Office 2007 and an internally developed add-in for Powerpoint. Then if I do an Uninstall or repair of Snagit 8 it will hang. If I look in the log I can see issues with PPT. If I look in the task manager I can see powerpoint running. If I kill that task the uninstall/repair will continue fine. I looked in the custom actions and found this running if Upgrade_1.
On Error Resume Next
Set appPPT = CreateObject("PowerPoint.Application")
appPPT.CommandBars("SnagIt ").Delete
appPPT.Quit
Set appPPT = Nothing
Now if before trying the uninstall/repair I remove the custom Add-in from powerpoint the process works fine. If it's Winxp instead of vista it works fine. If It's office 2003 instead of 2007 it works fine. Just the above mentioned combo isn't working.
I did some googling and thought I saw an answer by editing the script to:
On Error Resume Next
Set appPPT = CreateObject("PowerPoint.Application")
With appPPT
for i = .commandbars.count To 1 Step -1
If instr(.commandbars(i).name , "SnagIt ") then
.commandbars(i).delete()
end If
Next
appPPT.Quit
Set appPPT = Nothing
But that seemed to work on one machine but not another I tried?
Any thoughts?
I made a transform for Snagit 8.x. It works fine for most install scenarios inside my company except one. If I have Vista and Office 2007 and an internally developed add-in for Powerpoint. Then if I do an Uninstall or repair of Snagit 8 it will hang. If I look in the log I can see issues with PPT. If I look in the task manager I can see powerpoint running. If I kill that task the uninstall/repair will continue fine. I looked in the custom actions and found this running if Upgrade_1.
On Error Resume Next
Set appPPT = CreateObject("PowerPoint.Application")
appPPT.CommandBars("SnagIt ").Delete
appPPT.Quit
Set appPPT = Nothing
Now if before trying the uninstall/repair I remove the custom Add-in from powerpoint the process works fine. If it's Winxp instead of vista it works fine. If It's office 2003 instead of 2007 it works fine. Just the above mentioned combo isn't working.
I did some googling and thought I saw an answer by editing the script to:
On Error Resume Next
Set appPPT = CreateObject("PowerPoint.Application")
With appPPT
for i = .commandbars.count To 1 Step -1
If instr(.commandbars(i).name , "SnagIt ") then
.commandbars(i).delete()
end If
Next
appPPT.Quit
Set appPPT = Nothing
But that seemed to work on one machine but not another I tried?
Any thoughts?
0 Comments
[ + ] Show comments
Answers (1)
Please log in to answer
Posted by:
anonymous_9363
17 years ago
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
so that the conversation will remain readable.