Call addin in macro

[Taktiker]

Ive tried the following code:

Sub Diätplaner_Screenshot_EP()
Dim oAI As AddIn
    Range("A1:L66").Select
    Set oAI = Application.AddIns.Add("D:\...\GraphicsExporter.xlam") ' ... is written out in my my macro, so its not the mistake :)
    oAI.Installed = True
    Application.Run "GraphicExporter.GEX_Run(control as Icontrolribbon) 'Gex_Run is the function that opens the user form of the addin. GraphicExporter is the name of the addin-workbook.
End Sub

Somehow it does not work. Do you know whats wrong? I get the error "the macro cant be opened. Maybe macros are disabled..."