Haluk hocam kusura bakmayın anca bilgisayar başına geçebildim. Söz konusu dosya linkini paylaşıyorum.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayfadaki Gif'i Userform WebBrowser'da Oynatma
- Konbuyu başlatan meslek5
- Başlangıç tarihi
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Dosyayı ben istememiştim ama neyse....
Bu arada, GIF dosyasını başka bir alternatif olarak Zeki Beyin bahsettiği gibi GIF dosyasını B64 'e çevirdikten sonra UserForm'a gömerek çalıştırılmasına ilişkin ekli örnek dosyayı hazırladım.
4. mesajdaki ekli dosya, bahsettiğim gibi 15 yıl önce hazırlanmıştı. B64, 1990'ların başında geliştirilmişti ama dosyayı hazırladığım sırada ben bilmiyordum....
İlaveten; sizin orjinal dosyadaki GIF gömülmemiş, eklenmiş...... Bu nedenle, zaten o GIF'i sayfadan alıp da bilgisayarda bir klasöre alıp oradan da WebBrowser'da görüntülemeye çalışsak, animasyonlu olmaz. Yani, bu işin çözümü GIF'i dosyaya gömmek.....
İki tane de alternatif var elinizde şu anda. B64 alternatifinde, UserForm üzerindeki Label1 nesnesi "gizli" olarak duruyor ve "Caption" özelliğinde sözkonusu B64 "string" olarak atanmış durumda. WebBrowser nesnesi veriyi oradan alıyor.
.
Bu arada, GIF dosyasını başka bir alternatif olarak Zeki Beyin bahsettiği gibi GIF dosyasını B64 'e çevirdikten sonra UserForm'a gömerek çalıştırılmasına ilişkin ekli örnek dosyayı hazırladım.
4. mesajdaki ekli dosya, bahsettiğim gibi 15 yıl önce hazırlanmıştı. B64, 1990'ların başında geliştirilmişti ama dosyayı hazırladığım sırada ben bilmiyordum....
İlaveten; sizin orjinal dosyadaki GIF gömülmemiş, eklenmiş...... Bu nedenle, zaten o GIF'i sayfadan alıp da bilgisayarda bir klasöre alıp oradan da WebBrowser'da görüntülemeye çalışsak, animasyonlu olmaz. Yani, bu işin çözümü GIF'i dosyaya gömmek.....
İki tane de alternatif var elinizde şu anda. B64 alternatifinde, UserForm üzerindeki Label1 nesnesi "gizli" olarak duruyor ve "Caption" özelliğinde sözkonusu B64 "string" olarak atanmış durumda. WebBrowser nesnesi veriyi oradan alıyor.
.
Son düzenleme:
Sayın hocam çok çok teşekkür ederim. Dosya linkini açamadım başka link varmı?
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Haluk hocam ne kadar teşekkür etsem azdır. Excel tam bir dipsiz kuyuymuş bunu anladım. Gönderdiğiniz dosya tam olarak işimi gördü.
Peki daha sonra farklı bir gif için Label1 caption'daki B64 kodlarını nasıl değiştirebilirim bunun yöntemi nedir?
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Herhangi bir GIF dosyası Base64'e VBA ile çevrilebilir....... Ya da, bu işi internet üzerinde online olarak da yapabilirsiniz. Aşağıdaki linkte yer alan site bu işi yapıyor.
base64.guru
Yukarıdaki linkte GIF dosyasını seçtikten sonra, "Output Format" olarak "HTML - Img" seçin, "Encode GIF to Base64" düğmesine tıklayın.... Sonucu, data:image/gif;base64, kısmından itibaren kopyalayıp UserForm'da Label1 nesnesinin "Caption" özelliğine yapıştırın.
.
GIF to Base64 | Image | Base64 Encode | Base64 Converter | Base64
Convert GIF to Base64 online and use it as a generator, which provides ready-made examples for data URI, img src, CSS background-url, and others
base64.guru
Yukarıdaki linkte GIF dosyasını seçtikten sonra, "Output Format" olarak "HTML - Img" seçin, "Encode GIF to Base64" düğmesine tıklayın.... Sonucu, data:image/gif;base64, kısmından itibaren kopyalayıp UserForm'da Label1 nesnesinin "Caption" özelliğine yapıştırın.
.
tamam buldum hocam https://products.aspose.app/svg/tr/encoding/gif-to-base64 bu siteden kodları veriyor.
Allah razı olsun Haluk hocam
Allah razı olsun Haluk hocam
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Ekli dosyada GIF'in WebBrowser üzerinde yerleşimi ayarlandı, görsel olarak daha iyi....
Harici link:
HAREKETLI_GIF_HD2.xlsb - 40 KB
.
Harici link:
HAREKETLI_GIF_HD2.xlsb - 40 KB
.
Çok güzel olmuş hocam
birçok kişinin faydalanacağı bir çalışma emeğinize sağlık.WebBrowser'de sağ tık pasif oluyor mu?
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Ekli dosyadaki gibi WebBrowser'ın "body" nesnesine "oncontextmenu='return false'" ilave ederek, olur....
Harici link:
HAREKETLI_GIF_HD3.xlsb - 41 KB
.
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Son olarak, eğer WebBrowser üzerinde sağ tıklandığında bir uyarı mesajı çıksın istenirse;
Harici link:
HAREKETLI_GIF_HD4.xlsb - 42 KB
.
Harici link:
HAREKETLI_GIF_HD4.xlsb - 42 KB
.
Son düzenleme:
Hocam harikasınız.. gerçekten çok mutlu oldum
