Delphi Excel Resim Method

   Merhaba Datakent Sakinleri ;

Şöyle Bir Sorunum Var.Kendim Bir kaç Yol Denedim Ama yapamadım.Sorunumda Şudur.
Delphiden Excel in Herhangi Bir Hücresine Nasıl Resim Aktarabilirim.

Bir Yöntem,Bir Mantık Ne Olursa artık....Çok Önemli

Ben Şöyle Bi Çözüm Üretmeye Kalktım Ama Olmadı.İstediğim Sonucu alamadım
VeriTabanında Ole veya Blob Bi alan Olşturup Buraya Resimleri Eklettim
ve Tabloyu Göngüye Sokarak Aktarmaya çalıştım ama Değişik bişeyler Çıktı.
http://rapidshare.com/files/189193104/OleExcelResim.rar.html

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
turknetyazilim Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214	Alıntı Cevapla Konu: Delphi Excel Resim Method Gönderim Zamanı: 25.Ocak.2009 Saat 16:02
	Merhaba Datakent Sakinleri ; Şöyle Bir Sorunum Var.Kendim Bir kaç Yol Denedim Ama yapamadım.Sorunumda Şudur. Delphiden Excel in Herhangi Bir Hücresine Nasıl Resim Aktarabilirim. Bir Yöntem,Bir Mantık Ne Olursa artık....Çok Önemli Ben Şöyle Bi Çözüm Üretmeye Kalktım Ama Olmadı.İstediğim Sonucu alamadım VeriTabanında Ole veya Blob Bi alan Olşturup Buraya Resimleri Eklettim ve Tabloyu Göngüye Sokarak Aktarmaya çalıştım ama Değişik bişeyler Çıktı. http://rapidshare.com/files/189193104/OleExcelResim.rar.html

murat turan Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Admin Group Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798	Alıntı Cevapla Gönderim Zamanı: 26.Ocak.2009 Saat 15:58
	uses'a ComObj ekle kodda aşağıdaki gibi procedure TForm1.Button1Click(Sender: TObject); var ExcelApp: OLEVariant; Picture: OleVariant; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.WorkBooks.Add; ExcelApp.Worksheets['Sheet1'].Cells[1,1].Value := 99;//99 yaz ExcelApp.Worksheets['Sheet1'].Cells[1,1].Font.Size := 12;//boyutu 12 yap Picture := ExcelApp.Worksheets['Sheet1'].Pictures.Insert('C:\test.bmp');//C:\test.bmp isimli resim'i yükle... Picture.Width := 60; Picture.Height := 60; Picture.ShapeRange.Left := 10; Picture.ShapeRange.Top := 10; ExcelApp.DisplayAlerts := False; ExcelApp.Application.Visible := True; end; Düzenleyen murat turan - 26.Ocak.2009 Saat 15:58
	Kasa Takip \| Cari Takip \| Evrak Takip \| ETA SQL Mobil

turknetyazilim Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214	Alıntı Cevapla Gönderim Zamanı: 28.Ocak.2009 Saat 15:36
	Mura Abi Bi Kez Daha Sorunuma Çözüm Oldun.Allah razı olsun Beni Çok Büyük Bi Dertten Kurtardın.Nasıl Teşekkür Edeceğimi Bilemiyorum

murat turan Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Admin Group Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1798	Alıntı Cevapla Gönderim Zamanı: 28.Ocak.2009 Saat 15:39

	Kasa Takip \| Cari Takip \| Evrak Takip \| ETA SQL Mobil

turknetyazilim Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214	Alıntı Cevapla Gönderim Zamanı: 29.Ocak.2009 Saat 18:05
	Merhaba Yukarıdaki Kod Fazlasıyla işimi gördü.Yanlız ben Soruyu sorarken yanlış sormuşum.Ama bilimyordum Deneyince Öğrendim.Aslında bilmeden öncede sorduğum soru mantıklı.Excelin herhangi bir hücresine nasıl resim aktarabilirim demiştim.Excel in hücresine aktaramıyorsunuz .Anca Sayfanın (Yani Sheetin) üzerine aktarabiliyorsunuz. Birde Yukarıda Ki Kodu Direk Denemeye Kalkarsanız. Geçersiz dizin diye bi hata alıoysunuz Sebebini bilmiyorum. Ama Ben Şu Şekilde Hallettim yukarıda Sheet1 yazan yerleri Sayfa1 diye değiştirirseniz sorun çözülür