Public oXL As Excel.Application
Public oWB As Excel.Workbook
Public oSheetBasicdata As Excel.Worksheet
Public oRng As Excel.Range
Public oFormat As Excel.XlFileFormat = Excel.XlFileFormat.xlWorkbookNormal
 
Public Function Excel() As Single
Dim Open_Path As String = "C:\test.xls"
Dim Save_Path As String = "C:\kapa.xls"
Dim Picture_Path As String = "C:\kapa.png"
oXL = CreateObject("Excel.Application")
oXL.Visible = True
oWB = oXL.Workbooks.Open(Open_Path)
oXL.Cells(30, 2).Activate()
 
****Hier muss nun das Bild rein****
 
oXL.Cells(1, 1).Activate()
oWB.SaveAs(Save_Path, oFormat)
End Function

Range("B30").Select
ActiveSheet.Pictures.Insert("C:\kapa.png").Select