Merhaba değerli üstatlar aşağıdaki kodlarla çalışma kitabının bulunduğu dosya yolundan hareketli gif'i userformdaki WebBrowser'e çekebiliyorum. Ancak bunu sayfada yer alan bir gif için yapamıyorum. Sayfa1'de Resim 1 adında bir gif var işte o resmi çekmek istiyorum.
Private Sub Userform_Initialize()
gif = ActiveWorkbook.Path & "\bekleyiniz.gif" 'DOSYA YOLUNU Sayfa1/RESİM 1 OLARAK NASIL DÜZENLEYEBİLİRİM?
WebBrowser1.Navigate "about:<html><body scroll=no><img background-color: transparent; src='" & gif & "'></img></body></html>"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Style.Border = 0
WebBrowser1.Document.body.bgcolor = "f4f7fc"
End Sub
Private Sub Userform_Initialize()
gif = ActiveWorkbook.Path & "\bekleyiniz.gif" 'DOSYA YOLUNU Sayfa1/RESİM 1 OLARAK NASIL DÜZENLEYEBİLİRİM?
WebBrowser1.Navigate "about:<html><body scroll=no><img background-color: transparent; src='" & gif & "'></img></body></html>"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Style.Border = 0
WebBrowser1.Document.body.bgcolor = "f4f7fc"
End Sub
