delphi & excel & resim & vt

[andrea]

Veritabanımda bulunan dataları excel çıktısı olarak raporluyorum. Personelle ilgili fonksiyonlarda resimlerin adresi vt'de kayıtlı, raporlarken bu resimleri excele nasıl atarım ?

[andrea]

böylebir deneme yapan yokmu arkadaşlar ? yada tavsiye fikir verecek ?

[Archimed]

aşağıdaki kodu fikir vermesi açısından veriyorumö. bilgisayarımda delphi olmadığı için denemedim. Syntax' tada ufak tefek hatalar yapmış olabilirim; çünkü delphi yerine uzun süredir VBA ile ilgilenmek zorunda kaldım.

Kod: Tümünü seç

// v değişkeni senin resim eklemek istediğin sheet' i gösteriyor.
Path:='c:\dnm.jpg'
with v.Pictures.Insert(Path) do  //bu köşeli parantez olabilir ??
Begin
.Left=v.Range['C5'].Left; //C5 hücresinin koordinatlarına resmi yerleştiriyorsun
.Top=v.range['C5'].Top;
end;

[andrea]

kardeş saolasın, hemen bi deneyeceğim

[andrea]

kod çalışmadı, comobj bağlantısını filan hallettim, hatta kodu

Pictures[1].Insert(Path)

filan gibi değiştirdim olmadı.

[mrmarman]

Selam...

- DivXTurk projesi için kullandığım Excel export film afişleriyle film listesi oluşturma olayında aynen şu şekilde kullanmıştım...

- C5 hücresinin sol üst köşesinden itibaren konumlandıran örnek...

Kod: Tümünü seç

Var
  xExcel   : Variant;
  Resim : String;
Begin
  xExcel := CreateOleObject('Excel.Application');
  xExcel.Workbooks.Open( 'D:\Deneme.XLS' );
  xExcel.Visible := True;

  Resim := 'D:\Delphi\Yararli Rutinler\Excel Sorusu\bayrak.jpg';
  xExcel.ActiveSheet.Range['C5'].Select;
  xExcel.ActiveSheet.Pictures.Insert(Resim);
end;

[andrea]

çok teşekkür ederim, hemen deneyemiyorum, denediğim gibi geri bilgi yazarım.