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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        Dim Excellx As Excel.Application
        Dim Dosya As Excel.Workbook
        Dim Sayfa As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim Resim As Object 'Excel.Picture
        Dim Resim_Yolu As String

        Excellx = New Excel.Application()
        Dosya = Excellx.Workbooks.Add(misValue)
        Sayfa = Dosya.Sheets("Sayfa1")
        Excellx.Windows.Application.ActiveWindow.DisplayGridlines = False

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

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

        Resim_Yolu = Application.StartupPath + "\adsız.jpg"
        Sayfa.Pictures.Insert(Resim_Yolu).Select()
        Resim = Excellx.Selection

        With Resim
            .Name = "My Picture"
            .Left = 100
            .Top = 150 'rng.Top
            .Width = 300
            .Height = 50
            .Placement = 1 'xlMoveAndSize
            .PrintObject = True
            .Locked = True
        End With

       'Excel dosyamızı kaydediyoruz.
        Dim str As String = Application.StartupPath + "\image.xls"
        Sayfa.SaveAs(str)
        Dosya.Close()
        Excellx.Quit()

        Nesne(Excellx)
        Nesne(Dosya)
        Nesne(Sayfa)

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

    End Sub