Can't remove addin from powerpoint

P

peter

Hi,

I have made a Powerpoint addin (.ppa) which must run every time a user starts Powerpoint. I achieved this by calling Application.AddIns.add("location_of_my_addin"). In the registry the addin is correctly added to:
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\PowerPoint\AddIns
So far no problem.

The problem is removing the addin from code: on a Win2000 machine with Office2000 it works as expected. But on a WinXP machine with Office2000 the remove does not work (the addin is not removed from the registry).
I use the following code to remove the addin:

Dim objPowerPointApp As PowerPoint.Application
Set objPowerPointApp = New PowerPoint.Application
objPowerPointApp.Presentations.Add
objPowerPointApp.AddIns.Remove ("DSOI") 'DSOI is the name of the addin
Set objPowerPointApp = Nothing

I have also tried:
For t = 1 To objPowerPointApp.AddIns.Count
If (InStr(LCase(objPowerPointApp.AddIns.item(t).Name), "dsoi") > 0) Then
objPowerPointApp.AddIns.Remove (t)
Exit For
End If
Next
This code actually finds the addin, the Remove statement is executed, but has no effect.

Am I doing something wrong in the code ?
Does anyone know if this is a known issue on WinXP + Office2000 ?

Thanks,

Peter
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top