locked
tr RRS feed

  • General discussion

  • thread removed.

    • Edited by viian Thursday, October 2, 2008 7:39 AM
    • Changed type Xingwei Hu Friday, October 3, 2008 3:31 AM
    Friday, September 26, 2008 7:02 AM

All replies

  • Try this.

    Public Class Form1 
        Private Sub AddImageIntoExcel() 
            Dim Img As Bitmap = Image.FromFile("c:\right.bmp"
            'Create an Excel App 
            Dim excelApp As New Microsoft.Office.Interop.Excel.Application() 
            excelApp.Visible = False 
            'The Excel doc paths 
            Dim oMissing As Object = System.Reflection.Missing.Value 
            Dim destFile As String = "C:\test_image.xlsx" 
            Dim excelFile As String = "C:\Book1.xlsx" 
            'Open the worksheet file 
            Dim excelBook As Microsoft.Office.Interop.Excel.Workbook 
            excelBook = excelApp.Workbooks.Open(excelFile) 
            Dim excelSheet As Microsoft.Office.Interop.Excel.Worksheet 
            excelSheet = CType(excelBook.Sheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet) 
     
            'Find the predefined barcode cell into the worksheet 
            Dim imgCell As Object = "B9" 
            Dim range As Microsoft.Office.Interop.Excel.Range 
            range = excelSheet.Range(imgCell) 
     
            'Copy the barcode image into Clipboard 
            Clipboard.SetDataObject(Img) 
     
            'Paste the barcode image 
            range.Select() 
            excelSheet.Paste() 
            'Save a copy with barcode 
            excelSheet.SaveAs(destFile) 
            'Quit 
            excelApp.Quit() 
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp) 
            MessageBox.Show("image inserted!"
        End Sub 
     
        Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click 
            Me.AddImageIntoExcel() 
        End Sub 
    End Class 
     


    Please remember to mark the replies as answers if they help and unmark them if they provide no help.
    Thursday, October 2, 2008 7:54 AM
    Moderator