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
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