WebBrowser'da açık olan sayfadan kopyalanan resmi bir kalasröe yaptırmak (Kaydetmek)

[alicimri]

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

Yukardaki kod WebBrowser'de açık olan web sayfasındaki resimleri Excel'e shape olarak yapıştırıyor.
Kodlardaki

Range("a1").PasteSpecial

satırını silip. döngüyü "Next" yazılı satırda durduğumuzda, kopyalanmış resmi manuel olarak bir klasöre .jpg dosyası olarak yapıştılabiliniyor. Bu işlemi Makro ile yapmak mümkün mü

 

[ÖmerBey]

İsteğiniz Sendkeys yardımıyla yapılabilir sanıyorum.
Ya da direkt olarak resimleri bir klasöre kaydetmek isterseniz aşağıdaki şekilde deneyebilirsiniz.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
    szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Private Sub CommandButton1_Click()
i = 0
For Each a In WebBrowser1.Document.Images
URL = UserForm1.WebBrowser1.Document.Images(i).GetAttribute("src")
uz = Split(URL, ".")(UBound(Split(URL, ".")))
Dosya_Kayit_Yolu = "[COLOR="Red"]D:\[/COLOR]" & "Resim" & i & "." & uz
kayıt = URLDownloadToFile(0, URL, Dosya_Kayit_Yolu, 0, 0)
i = i + 1

Next
End Sub