+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Excele Resimli Aktarma (/showthread.php?tid=2867)
Sayfalar:
1
2
Excele Resimli Aktarma - gonulali - 06-11-2018
Merhaba Arkadaşlar,
Programımdaki kayıtları excele aktarabiliyorum. CxGridle veya Dbgriddeki bilgileri.
Excele aktarırken her kayıtta bulunan resimleri de ben excele aktarmak istiyorum. Yani her kayıtın yanında resmide çıksın istiyorum. Bunu nasıl yapabilirim acaba?
Excele Resimli Aktarma - ozcanm - 06-11-2018
Burayı bir deneyin.
Excele Resimli Aktarma - SimaWB - 06-11-2018
Daha önce burada konuşulmuştu. Bakmanızda fayda var.
Excele Resimli Aktarma - sebahattin.koc - 06-11-2018
https://stackoverflow.com/questions/278272/add-a-picture-to-an-excel-sheet-with-delphi-6
http://forum.datakent.com/forum_posts.asp?TID=1671&PID=3620
bir çok sitede konu ele alınmış.
Cvp: Excele Resimli Aktarma - SercanTEK - 06-11-2018
Daha önce yazıp sattığım bir uygulamada bir exceldeki bir sutunda yer alan stok numaralarını alıp resimleri ilgili klasörde bulup ilgili excel dosyasına yerleştiriyordum. yerleştirme kısmını aşağıdaki kod ile gerçekleştirdim. Belki Faydası olur.
Not : Sadece bir kısmını aldığım için değişkenlere vs takılmayın. ama mantık aşağıdaki gibidir.
uses ComObj;
var
Excel_App,Resim_Obj: Variant ;
Resim,Dosya_Yolu,Dosya_Adi,
Dosya_jpg,Dosya_png,Dosya_jpeg,Dosya_bmp : String;
Aktif_Sayfa,Veri,Hucre : Variant;
cell, aLeft, aTop, aWidth, aHeight : Integer;
K_Satir,K_sutun,R_sutun : integer;
H_yukseklik, H_genislik : integer;
begin
Excel_App := CreateOleObject('Excel.Application');
Excel_App.Workbooks.Open(Form1.Excel_Dosya_Yolu.text);
// Hücre Seç
Excel_App.Cells[cell,R_sutun].Select;
Hucre := Excel_App.ActiveSheet;
Hucre.Cells[cell, R_sutun].ColumnWidth :=H_genislik;
Hucre.Cells[cell, R_sutun].RowHeight :=H_yukseklik;
// Resim Boyutu Ayarlanıyor
aLeft := Hucre.Cells[cell,R_sutun].Left + 2;
aTop := Hucre.Cells[cell,R_sutun].Top + 2;
aWidth := Hucre.Cells[cell,R_sutun+1].Left - Hucre.Cells[cell, R_sutun].Left - 4 ;
aHeight := Hucre.Cells[cell+1,R_sutun].Top - Hucre.Cells[cell, R_sutun].Top - 4;
Resim_Obj := Excel_App.ActiveSheet.Shapes.AddPicture(Resim,
False, // LinkToFile parametresi (dosya bağını kopardık...)
True , // SaveWithDocument parametresi (içerik excel dosyası ile kaydedilecek)
aLeft , // Left ( varsayılan sol offset )
aTop , // Top ( varsayılan tepe offset )
aWidth , // Width ( varsayılan genişlik )
aHeight); // Height (varsayılan yükseklik )
Resim_Obj.LockAspectRatio := msoFalse;
Resim_Obj.Placement := xlPortrait;
Excel_App.Visible:=true;
Excel_App := Unassigned;
end;
Cvp: Excele Resimli Aktarma - gonulali - 07-11-2018
Cevaplar için teşekkürler. Bu örneklerler dosya yolundan resimleri çekip excele aktarıyor.
Ben Resimleri veri tabanında tutuyorum tüm verilerle birlikte. Yine gönderdiğiniz yöntemlerle mi yapmam gerekiyor acaba?
Excele Resimli Aktarma - SercanTEK - 07-11-2018
(07-11-2018, Saat: 09:02)gonulali Adlı Kullanıcıdan Alıntı: Cevaplar için teşekkürler. Bu örneklerler dosya yolundan resimleri çekip excele aktarıyor.
Ben Resimleri veri tabanında tutuyorum tüm verilerle birlikte. Yine gönderdiğiniz yöntemlerle mi yapmam gerekiyor acaba?
CxGrid için ExportGridToXLSX fonksiyonu direkt gridi excel dosyası olarak export edebiliyormuş. denediniz mi ?
Excele Resimli Aktarma - gonulali - 07-11-2018
Teşekkürler. Bilmiyordum. Deneyeceğim.
Excele Resimli Aktarma - gonulali - 08-11-2018
Tekrardan Selamlar. Denedim, CxGrid ile Resimleri sorunsuz olarak excele aktarıyor. Ama şimdi şu sorunum var
Böyle olacağını biliyordum ama denemek istedim.
Resimleri veri tabanında tuttuğumda çok yer kaplıyor doğal olarak. Ben bu resimleri bir dosyaya dosya yolu ile kaydettirdiğimde excele almak istersem yine resimleri excele alabilir miyim?
Excele Resimli Aktarma - SimaWB - 08-11-2018
Yukarıda size örnek olarak gösterilen kodlar zaten bunu yapmıyor mu?
Zaten şunu siz yazmadınız mı?
(07-11-2018, Saat: 09:02)gonulali Adlı Kullanıcıdan Alıntı: Bu örneklerler dosya yolundan resimleri çekip excele aktarıyor.