Powerpoint 2007 actionsetting.action error in Add-in

[stefan]

I created the macro below as part of an add-in to be used in PowerPoint 2007.
It works fine until I create an add-in and call the macro from the add-in. It
then generates the following error:
Run-time error '-2147188160 (80048240)':
ActionSetting.Action : Invalid Request

The code works fine till the actionsettings part

Any ideas on how to resolve it?


Public Sub Insert_VLC()
nr =
ActivePresentation.Application.ActiveWindow.Selection.SlideRange.SlideIndex
Set myslide = ActivePresentation.Slides(nr)
Set vlc_shape = myslide.Shapes.AddOLEObject(110, 60, 120, 90,
"Videolan.VLCPlugin.1")
vlc_shape.OLEFormat.Object.MRL = File_Insert()
Set klik = myslide.Shapes.AddShape(1, 0, 0, 5, 5)

With klik
.Fill.Transparency = 1
.Line.Transparency = 1
PowerPoint.Application.Visible = msoTrue
.ActionSettings(ppMouseClick).Action = ppActionRunMacro
.ActionSettings(ppMouseClick).Run = "show_userform2"
End With
End Sub