Dim xlapp As New Excel.ApplicationClass
        Dim  wb  As Excel.Workbook= xlapp.Workbooks.Open( _
          "blahblah\example.xls", True, False)
        xlapp.Visible = True
        Dim ws As Excel.Worksheet = xlapp.ActiveSheet
 
        ws.Range("B30").Select()
        ws.Pictures.Insert("blahblah\temp.jpg").Select()
 
        wb.Save()
        wb.Close()
        xlapp.Quit()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist