excel'de hareketli gif resmi sorunu

[enderuzuner]

Arkadaşlar excel sayfasında hareketli gif resmi oynatmak istiyorum fakat bir yere gelince takılıyorum. Konu ile ilgili olarak yazılmış makroda gif resmini seçmem isteniyor. Oysa ben sürekli olarak yanı resmi oynatmak istediğimden bu seçim kısmını atlayıp otomatik olarak aynı resmi yüklemesini istiyorum. Yardımcı olursanız sevinirim.(Aynı zamanda hareketli gif resmini excel sayfasında bulundurup buradan oynatabilir miyim.)Makroyu aşağıya yazıyorum.

Sub CommandButton1_Click()
Call SheetReset
Dim gifName As String
gifName = Application.GetOpenFilename("Fichiers images (*.gif),*.gif")
If Len(gifName) <= 8 Then Exit Sub
If Dir(gifName) = "" Then
MsgBox "File not found !", vbExclamation, "File Error"
Exit Sub
End If
GifExecute gifName
End Sub

 

[Levent Menteşoğlu]

Sayfada gif resmi hareket ettirme yazdığınız kodla yapılamaz. Bunun için sayfaya bir webbrowser eklemeniz gerekir. Aşağıdaki linkleri inceleyin.

http://www.excel.web.tr/showthread.php?t=1197&highlight=webbrowser

http://www.excel.web.tr/showthread.php?t=11937&highlight=webbrowser

 

[enderuzuner]

Yardımın için teşekkür ederim. Fakat sorunumu hala çözmüş değilim. Çünkü sayfaya web brovser' i de nasıl ekleyeceğimi bilmiyorum. Bu konuda da yardım edersen sevinirim.

 

[y_tekeli]

Web Browser ekleme

Menüden; Görünüm->Araç Çubukları->Denetim Araç Kutusunu görüntüleyin.

Üzerinde "Çekiç ve Anahtar" resmi olan en sağdaki "Diğer Denetimler" butonuna tıklayın. Aşağıya doğru bir liste açılacak. En alta doğru inin ve "Microsoft Web Browser"i bulun. Üzerine tıklayın.

Fare imleci "+" görünümünü alınca; sayfa üzerine gelip Web Browser'i ekleyin.