Hallo VB Profis,
ich möchte ein Bild (.bmp) das in Form2.PictureBox1.Image abgelegt ist nach Excel 2007 in ein Tabellenblatt kopieren.
Dazu habe ich ein Button1 auf die Form2 gesetzt und unten stehenden Code eingefügt.
Da ich Anfänger bin, habe ich die Codezeilen aus diesem Forum zusammengesucht.
Doch leider bricht das Programm an der vorletzt Codezeile mit folgender Fehlermeldung ab
Typkonflikt. (Ausnahme von HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH)).
Könnt ihr mir bitte helfen diesen Fehler zu lösen.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Excel_load As Microsoft.Office.Interop.Excel.Application 'Excel
Dim Excel_done As Microsoft.Office.Interop.Excel.Workbook 'Arbeitsmappe
Dim Tabellenblatt1 As Microsoft.Office.Interop.Excel.Worksheet 'Arbeitsblatt
Excel_load = CreateObject("Excel.Application")
Excel_load.Visible = True
Excel_done = Excel_load.Workbooks.Add
Tabellenblatt1 = Excel_done.Worksheets(1)
Dim objOLEObject As Microsoft.Office.Interop.Excel.OLEObject
objOLEObject = Tabellenblatt1.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=828, Top:=80, Width:=34, Height:=18)
objOLEObject.Object.Picture = Form2.PictureBox1.Image 'Typkonflikt
End Sub
'
ich möchte ein Bild (.bmp) das in Form2.PictureBox1.Image abgelegt ist nach Excel 2007 in ein Tabellenblatt kopieren.
Dazu habe ich ein Button1 auf die Form2 gesetzt und unten stehenden Code eingefügt.
Da ich Anfänger bin, habe ich die Codezeilen aus diesem Forum zusammengesucht.
Doch leider bricht das Programm an der vorletzt Codezeile mit folgender Fehlermeldung ab
Typkonflikt. (Ausnahme von HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH)).
Könnt ihr mir bitte helfen diesen Fehler zu lösen.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Excel_load As Microsoft.Office.Interop.Excel.Application 'Excel
Dim Excel_done As Microsoft.Office.Interop.Excel.Workbook 'Arbeitsmappe
Dim Tabellenblatt1 As Microsoft.Office.Interop.Excel.Worksheet 'Arbeitsblatt
Excel_load = CreateObject("Excel.Application")
Excel_load.Visible = True
Excel_done = Excel_load.Workbooks.Add
Tabellenblatt1 = Excel_done.Worksheets(1)
Dim objOLEObject As Microsoft.Office.Interop.Excel.OLEObject
objOLEObject = Tabellenblatt1.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=828, Top:=80, Width:=34, Height:=18)
objOLEObject.Object.Picture = Form2.PictureBox1.Image 'Typkonflikt
End Sub
'