Einen schönen guten Abend,
leider bin ich nicht in der Lage, als VB2010 Anfänger und mit Hilfe von Google, folgendes Problem zu lösen.
Ich versuche verzweifelt seit einiger Zeit diesen Code so umzuschreiben, dass er mir nicht eine neue Excel Datei öffnet, sondern das Bild in einer Excel Vorlage kopiert.
Diesen Code habe ich unter folgendem Link gefunden:
http://www.vb-magazin.de/forums/forums/t/6303.aspx
Alles andere bekomme ich hin (Text senden, Datei speichern und schließen), leider nur dieses Problem nicht.
leider bin ich nicht in der Lage, als VB2010 Anfänger und mit Hilfe von Google, folgendes Problem zu lösen.
Ich versuche verzweifelt seit einiger Zeit diesen Code so umzuschreiben, dass er mir nicht eine neue Excel Datei öffnet, sondern das Bild in einer Excel Vorlage kopiert.
Diesen Code habe ich unter folgendem Link gefunden:
http://www.vb-magazin.de/forums/forums/t/6303.aspx
Alles andere bekomme ich hin (Text senden, Datei speichern und schließen), leider nur dieses Problem nicht.
VB.NET-Quellcode
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim Excel_Appl As Excel.Application 'Excel
- Dim Excel_Mappe As Excel.Workbook 'Arbeitsmappe
- Dim Excel_Tabellenblatt As Excel.Worksheet 'Arbeitsblatt
- Dim Hilfsdatei As String
- Dim HilfsdateiBmp As String
- Hilfsdatei = Path.GetTempFileName() ' Eindeutigen temporären Dateinamen incl. Pfad erzeugen lassen
- HilfsdateiBmp = Hilfsdatei.Replace(Path.GetExtension(Hilfsdatei), ".bmp") ' Dateiendung umbennen in ".bmp"
- Debug.WriteLine(HilfsdateiBmp) ' *** FÜR TESTZWECKE
- ' ANNAHME: In Form2.PictureBox1 ist bereits ein Bild vorhanden !!
- Me.PictureBox1.Image.Save(HilfsdateiBmp, Imaging.ImageFormat.Bmp) ' Image als Bitmap in Datei speichern
- Excel_Appl = CType(CreateObject("Excel.Application"), Excel.Application) ' Excel Öffnen
- Excel_Appl.Application.Workbooks.Open(EXCEL_VORLAGE)
- Excel_Appl.Visible = True
- Excel_Mappe = Excel_Appl.Workbooks.Add ' Tabelle hinzufügen und 1. Tabelle auswählen
- Excel_Tabellenblatt = CType(Excel_Mappe.Worksheets(1), Excel.Worksheet)
- Excel_Tabellenblatt.Select()
- Excel_Tabellenblatt.Shapes.AddPicture(Filename:=HilfsdateiBmp, _
- LinkToFile:=CType(True, Microsoft.Office.Core.MsoTriState), _
- SaveWithDocument:=CType(False, Microsoft.Office.Core.MsoTriState), _
- Left:=200, Top:=80, Width:=134, Height:=118) ' Bildpfad an Excel übergeben
- File.Delete(HilfsdateiBmp) ' Hilfsdatei wieder löschen (Bild wird weiterhin in Excel angezeigt!)
- Excel_Mappe.Saved = True ' *** FÜR TESTZWECKE
- MessageBox.Show("Excel wird jetzt geschlossen (es wurde nichts gespeichert)")
- Excel_Appl.Quit() ' Excel schließen
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Aquin81“ ()