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
1 comments:
Resimi sayfaya konumlandırma tamamdır. Fakat resimin boyutlarını nasıl değiştirebiliriz acağa. En, Boy, Yükseklik gibi ?
Yorum Gönder