Kod:
Set nesne = WebBrowser1.Document.Body.createControlRange()
i = 0
For Each a In WebBrowser1.Document.Images
nesne.Add WebBrowser1.Document.Images(i)
nesne.execCommand "Copy"
i = i + 1
Range("a1").PasteSpecial
Next
Kodlardaki
Kod:
Range("a1").PasteSpecial