Delphi Excel Resim Method |
Yanıt Yaz |
Yazar | |
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ı.
|
|
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 |
|
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 |
|
|
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
|
|
Yanıt Yaz |
Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |