Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value

        xlApp = New Excel.Application()
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("Sayfa1")


        'Yazı ekleme
        xlWorkSheet.Cells(1, 1) = "Excel Dosyasına Resim Ekleme"

        'Yazı fontunu belirleme
        xlWorkSheet.Cells(1, 1).Font.Bold = True
        xlWorkSheet.Cells(1, 1).Font.Size = 16
        xlWorkSheet.Cells(1, 1).Font.Name = "Arial"

        'Seçtiğimiz resimi Excel deki çalışma sayfamıza ekliyoruz.
        xlWorkSheet.Shapes.AddPicture("C:\Documents and Settings\drummers\Desktop\Sipariş_Form\Sipariş_Form\Sipariş_Form\bin\Debug\adsız.jpg", _
        Microsoft.Office.Core.MsoTriState.msoFalse, _
        Microsoft.Office.Core.MsoTriState.msoCTrue, 350, 50, 200, 250)


        'Excel dosyamızı kaydediyoruz.
        Dim str As String = "D:\image.xls"
        xlWorkSheet.SaveAs(str)

        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        MsgBox("Excel dosyası oluşturuldu." & vbCrLf & "Dosya adresi: " & str)

    End Sub

Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub