• DİKKAT

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

excel sayfada hareketli gif

haklısınız birini silince açıldı teşekkürler çok zamanınızı aldım sayın gene hocam
 
Rica ederim.. Nickim Qene dir..
Ayrıca, zamanım olmasa burada olmazdım..
Çalışmalarınızda artan başarılar..
 
Vardır :)

Sayfa üzerine bir tane daha WebBrowser ekleyin ve aşağıdaki kodları kendinize uyarlayın :)
Kod:
WebBrowser1.Navigate "about:<html><body scroll='no'><img src='Buraya Resmin Yolunu ve Ad&#305;n&#305; Yaz&#305;n'></img><body bgcolor=red></body></html>
WebBrowser2.Navigate "about:<html><body scroll='no'><img src='Buraya Resmin Yolunu ve Ad&#305;n&#305; Yaz&#305;n'></img><body bgcolor=red></body></html>
 
Sn. Qene, Webbrowser için resim yolu adresi, Textbox' da yazılı olan ise webbrowser kodu nasıl olacak? yardımlarınız için teşekkür ederim.
 
Kod:
WebBrowser1.Navigate "about:<html><body scroll='no'><img src='" & TextBox1 & "'></img><body bgcolor=yellow></body></html>"
 
Son düzenleme:
Kod:
WebBrowser1.Navigate "about:<html><body scroll='no'><img src='" & TextBox1 & "'></img><body bgcolor=yellow></body></html>"
 
Rica ederim.
&#199;al&#305;&#351;malar&#305;n&#305;zda ba&#351;ar&#305;lar...
 
Fikir almak istiyorum

Herkese Merhaba,
Sayın Qene, verdiğiniz bilgiler üzerine bende gif üzerinde bir çalışma yaptım ve anlayamadığım bir şeyle karşılaştım.
Şimdi öğrendiğim kadarı ile iki şekilde oluyor.
Birincisi C:\ klasörünün altına bir *.gif kopyalayarak, ikinciside sizden öğrendiğim, URL bağlantı adresini kodlayarak.

Private Sub Workbook_Open()
Sayfa1.WebBrowser1.Navigate "about:<html><body scroll='no'><img src='http://www…………….com/a……./valye.gif'></img><body bgcolor=4169E1></body></html>"
End Sub
Yukarıdaki şekilde yaptığım dosyada hareketli resim çalıştı. Buraya kadar herşey normal. Daha sonra hazırlamaya çalıştığım bir projenin "sayfa1" bölümüne taşı-kopyala yöntemi ile atmak istedim. Bu sırada ActiveX ile alakalı bir uyarı penceresi açıldı. Güvenli olmayan datalar ile ilgili olduğundan direk okeyleyerek işlemi tamamladım. Bu şekilde X adındaki proje dosyamın birinci sayfasına oturdu. Şimdi bu dosya tamamen fonksiyonlardan oluştuğu için üzerinde kod yazılı değil. Fakat ben gif resim dosyasının ayarını değiştirmek için Alt+F11 yaparak VBA düzenleyicisini açtığımda, buranın bomboş olduğunu gördüm. Yani yukarıda yazılı olan kod ortalarda yok :)... Ama resim hareket etmeye devam ediyor. Daha sonra interneti kestim, resim halen hareket ediyor. Yani internet adresi üzerinden gelmesi gerekmiyormuydu?. Daha sonra Msn den yurtdışından birine gönderdim, kontrol için. Dosyada bir hata yok, resim aynen devam. Şimdi diyeceksin; o zaman ortada bir sorun yok ama, kod nereye gitti. Hareket eden bu resim dosyanın üzerinde çalışmaya devam ediyor, ve bende bunun mantığını anlamaya çalışıyorum.
Biraz uzun oldu ama sanırım, olayı tam olarak ifade edebildim.
Bu konu hakkında bilgisi olan arkadaşlardan bir yardım rica ediyorum. Saygılarımla
 
Tekrar herkese merhaba;
Acaba yukarıda anlatmaya çalıştığım olay hakkında, fikir sahibi olan bir arkadaş varmı? Yardım ve önerilerinize ihtiyacın var... Teşekkürler...
 
Kod VBE de thisworkbook kod sayfas&#305;ndad&#305;r.
 
Sayın Leventm,
ilgi ve alakanız için çok teşekkü ederim. Fakat
Private Sub Workbook_Open()
Sayfa1.WebBrowser1.Navigate "about:<html><body scroll='no'><img src='http://www…………….com/a……./valye.gif'></img><body bgcolor=4169E1></body></html>"
End Sub
yazan kodu dediğiniz yer dahil bulamıyorum.
Dosyayı ekledim bakarsanız cok sevinirim.
 
Bunun sebebi resmin linkinin webbrowser nesnesinin bünyesinde kayıtlı olmasıdır. Eğer linkteki resmi kaldırırsanız webbrowserde gösterim sona erecektir.
 
Geri
Üst