sFile = ThisWorkbook.Path & "\\192.168.1.111\S$\Diagramm_1.gif"
    ActiveChart.Export sFile

    Sub Grafiken_erstellen()
 
        Dim oExcel As New iExcel.Application
        Dim oBook As Excel.Workbook
        Dim xlsFile As String
 
        xlsFile = "\\192.168.1.111\S$\xyz.xls"
 
 
        oBook = oExcel.Workbooks.Open(xlsFile)
        oExcel.Visible = False
        oExcel.Run("NameExcelMakro1")  ' Diagramm 1
        oExcel.Run("NameExcelMakro2")  ' Diagramm 2
        oExcel.Run("NameExcelMakro2")  ' Diagramm 3
 
        oBook.Close(False)
        oExcel.Quit()
 
        oBook = Nothing
        oExcel = Nothing
 
    End Sub