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

gicimi · 25 Ekim 2018

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.

Zeki Gürsoy · 25 Ekim 2018

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.

gicimi · 26 Ekim 2018

@Zeki Gürsoy bilgilendirme için teşekkür ederim. Örnek paylaşabilir misiniz. Mümkün müdür.

Zeki Gürsoy · 26 Ekim 2018

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ı?

gicimi · 26 Ekim 2018

Excel dosyasına gömülü GIF' i sayfa/userform üzerinde oynatmak

Haluk · 26 Ekim 2018

@gicimi ;

Biraz eski bir konu ama; aşağıdaki linkte yer alan dosyada, binary kodları sayfaya yazılan hareketli GIF dosyasının UserForm üzerinde gösterilmesini içerir.

https://www.excel.web.tr/threads/hareketli-resim-yuekleme.59570/

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

.

gicimi · 26 Ekim 2018

@Haluk bey teşekkür ederim.

gicimi · 26 Ekim 2018

@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.

Haluk · 27 Ekim 2018

Haluk' Alıntı:
@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 ....

.

gicimi · 29 Ekim 2018

GIF'i disk üzerinden okuyup sayfa üzerinde oynatmak için webbrowser yada internet explorer nasıl yapılabilir. @Haluk Bey.

Haluk · 29 Ekim 2018

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

.

gicimi · 30 Ekim 2018

@Haluk Bey iyi akşamlar vermiş olduğunuz kodla ben çalıştıramadım. Bir örnek paylaşabilir misin. Mümkünse,

Haluk · 30 Ekim 2018

UserForm üzerine bir WebBrowser nesnesi ekleyin, bilgisayarınızdaki GIF dosyası da C:\TestFolder\TempImg.gif olmalı.

.

gicimi · 31 Ekim 2018

Teşekkürler Haluk Bey oldu.

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

gicimi

Ekli dosyalar

Zeki Gürsoy

Uzman

gicimi

Zeki Gürsoy

Uzman

gicimi

Haluk

Özel Üye

gicimi

gicimi

Haluk

Özel Üye

gicimi

Haluk

Özel Üye

gicimi

Haluk

Özel Üye

gicimi