Excel Sayfasına Resim Eklemek

Merhaba arkadaşlar. Bu makalemizde  Excel sayfasına resim ekleyeceğiz. İlk önce Add Reference e tıklayın. Reference Manager COM kısmından Microsoft Excel Object Library i ekleyin.

Screenshot

Şekil 1

Şekil 2

Şekil 3

Form1.vb

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As 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("D:\serce.jpg", _

        Microsoft.Office.Core.MsoTriState.msoFalse, _

        Microsoft.Office.Core.MsoTriState.msoCTrue, 50, 50, 400, 450)

        'Excel dosyamızı kaydediyoruz.

        Dim str As String = "D:\image.xlsx"

        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

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN