Sayın ates2014,

Öncelikle;
yeterli zaman ve imkan olmaması nedeni ile,bir örnek çalışma üzerinde iletemiyorum kendi adıma,fakat,aşağıdaki açıklamaların yapılması uygun görülmüştür.

Konunuzun 10.,12.,14. ve 15.mesajlarında yazılı olan işlemleri yapmanız yeterlidir.Bunun için;


- uygulamanızı çalıştırıp açınız ve ALT + F11 tuşları ile kod sayfasına geçiniz.

- Kod sayfasının sağında yer alan ve kodların yazılı olduğu pencere üzerinde iki adet Açılan Kutu mevcut.önce,bunlardan soldakinin içerisinden Web Browser olarak tanımladığınız WebB’yi seçiniz.

- Ardından,sağdaki Açılan Kutu’dan da, DocumentComplete ifadesini seçiniz.Akabinde,

Private Sub WebB_DocumentComplete(ByVal pDisp As Object, URL As Variant)



End Sub

olarak ilgili olay yordamı boş halde belirecektir.Bunun içerisine,

WebB.Document.Body.Scroll = "no"

kod satırını yazınız.ya da,direkt olarak;

Private Sub WebB_DocumentComplete(ByVal pDisp As Object, URL As Variant)

WebB.Document.Body.Scroll = "no"

End Sub

yukarıdaki kodları olduğu gibi kod sayfasına ekleyiniz.Bilginize…iyi çalışmalar,saygılar.