• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru .GİF Uzantılı Resmin Excel Dosyasının İçerisinde Çalıştırma,

  • Konbuyu başlatan Konbuyu başlatan gicimi
  • Başlangıç tarihi Başlangıç tarihi

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
593
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Merhaba;

GİF ile kayıt edilmiş ekran görüntüsünü excel sheet içerisinde çalıştırmak mümkün müdür.

Bir çalışmanın nasıl yapıldığını görmek ve benzer uygulamaların yapılması ve deneme yapılması açısında fikir paylaşabilir misiniz. Teşekkürler.

Örnek .gif ekte olup ve ekran görüntüsü paylaşılmıştır. Teşekkürler.

Hata11.gifHata11.gif
 

Ekli dosyalar

  • Hata11.gif
    Hata11.gif
    156.4 KB · Görüntüleme: 9
GIF' i oynatmak için Webbrowser veya InternetExplorer uygulamasına ihtiyacınız olacak. Bu da, GIF'in base64 verisine çevrilmesi gerekiyor demektir. Yanlış anlamadıysam, bu veriyi (ekli örneğiniz en az 200 bin byte olur) saklamak için bana en iyi yer, gizli bir userform üzerindeki textbox olur. Excel hücresi bu kadar uzunluğu alamaz sanırım.
 
@Zeki Gürsoy bilgilendirme için teşekkür ederim. Örnek paylaşabilir misiniz. Mümkün müdür.
 
Soruyu tam anlamak adına tekrar sorayım. Amacınız, GIF'i disk üzerinden okuyup sayfa üzerinde oynatmak mı? Excel dosyasına gömülü GIF' i sayfa/userform üzerinde oynatmak mı?
 
Excel dosyasına gömülü GIF' i sayfa/userform üzerinde oynatmak
 
Son düzenleme:
@Haluk Bey Örnekteki dosyaya Data1 sayfasında gif dosyası aç basarak 160 kb bir dosyayı seçiyorum ve
Kod:
 Sheets("Data1").Cells(i, j) = ByteArray(k)
Hata veriyor.
 
@gicimi ;

Zeki Beyin de dediği gibi, GIF dosyalarının çok büyük boyutta olmamasında yarar var...

.

Hata veriyorsa, muhtemelen bundan dolayıdır..... Benim dosyada bir sıkıntı yok.

Verdiğim link bundan 10 yıl öncesine ait, o zamanlar Excel 65.536 satırla sınırlıydı. Kodu geliştirmek için, bir sonraki sütuna verileri yazmak için ufak bir ilave yapılması gerekiyor.

Bu kod amacına hizmet etmek için tasarlanmış bir koddur, yani ufak boyutlu dosyalar için.... tıpkı örnek dosyada olduğu gibi.

UserForm üzerinde çok büyük boyutlu dosyalarda GIF veya AVI her neyse artık .... binary kodların sayfaya yazılması ve/veya yazılan binary kodlardan geriye dönük olarak ilgili dosyanın oluşturulması PC'nin konfügürasyonu ve Office'in versiyonuyla ilgilidir.

Eğer dikkat ederseniz; örnek dosyadaki "Dalgalanan Bayrak" ile ilgili GIF dosyasının binary kodları sayfada A sütununda 15.856 satır boyunca devam etmekte ve 15.856 byte=~ 16 KB büyüklüğündedir.

Şimdi siz durumu, bahsettiğiniz 160 KB'lık dosya ile mukayese edin artık ....;)

.
 
Son düzenleme:
GIF'i disk üzerinden okuyup sayfa üzerinde oynatmak için webbrowser yada internet explorer nasıl yapılabilir. @Haluk Bey.
 
Aşağıdaki gibi bir şey olabilir ....

Kod:
Private Sub UserForm_Initialize()
    WebBrowser1.Navigate "C:\TestFolder\TempImg.gif"
End Sub


Veya, WebBrowser nesnesinde ScrollBar'ların gözükmemesi için;

Kod:
Private Sub UserForm_Initialize()
    TempFile = "C:\TestFolder\TempImg.gif"
    WebBrowser1.Navigate "about:<html><body scroll='no'><img src='" & TempFile & "'></img></body></html>"
End Sub

.
 
Son düzenleme:
@Haluk Bey iyi akşamlar vermiş olduğunuz kodla ben çalıştıramadım. Bir örnek paylaşabilir misin. Mümkünse,
 
UserForm üzerine bir WebBrowser nesnesi ekleyin, bilgisayarınızdaki GIF dosyası da C:\TestFolder\TempImg.gif olmalı.

.
 
Teşekkürler Haluk Bey oldu. (y)
 
Geri
Üst