Call addin in macro

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

Try this,

Sub Diätplaner_Screenshot_EP()
    Dim oAI As AddIn
    Dim objDummy As IRibbonControl
    
    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", objDummy  'Gex_Run is the function that opens the user form of the addin. GraphicExporter is the name of the addin-workbook.
End Sub

You can modify the code in the addin,

code in frmGraphicExporter

Private Sub m_CaptureCells()
'
' If the current selection is a range AND more than 1 cell AND a contiguous range
' then automatically create a picture of it
'
    Dim strAddress As String
    Dim vntShapeNames As Variant
    
    On Error GoTo ErrCaptureCells
        
    ' check for active selection
    If TypeName(Selection) = "Range" Then
        If Selection.Areas.Count = 1 Then
            If Selection.Cells.Count > 1 Then
                Set m_rngCells = Selection
                strAddress = m_rngCells.Cells(1, 1).Address(False, False, xlA1)
                strAddress = strAddress & "_" & m_rngCells.Cells(m_rngCells.Rows.Count, m_rngCells.Columns.Count).Address(False, False, xlA1)
                m_rngCells.CopyPicture xlScreen, xlBitmap
                ActiveSheet.Paste
                ' pasted shape does not necessarily become the last item
                ' so use new  selection
                Set m_objCells = Selection
' Change name of cell selection image
                m_objCells.Name = "EP" & m_rngCells.Cells(1, 1) '"Cells_" & strAddress
            End If
        End If
    End If
    Exit Sub

ErrCaptureCells:
    Set m_rngCells = Nothing
    Set m_objCells = Nothing
    Exit Sub
End Sub