Selamlar
Hocam Formu ve tabloya eklediğiniz parca_resmi1 ve parca_resmi2  ekledim fakat google 'la resimleri çekti formdaki resim bölümüne almadan aşağıdaki kırmızı renkteki kod hatası verdi. Kurcaladım ama çok anlayamadım.

Private Sub Komut588_Click()
Dim Form As Variant
Dim A As String
Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
WebBrowser1.Document.GetElementById("lst-ib").innertext = ÜrünNo.Value
Set Form = WebBrowser1.Document.getElementsByTagName("form")
Set Button = Form(0).onsubmit
Form(0).submit
Wait = Timer
While Timer < Wait + 2
    DoEvents
Wend

Do Until WebBrowser1.Busy = False
    DoEvents
Loop
       
Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
Set HTML_Img = HTML_Body.getElementsByTagName("img")
        
        
For X = 1 To 2
        
    Set AlinanResim = HTML_Img(X + 1)
    GResimYolu = AlinanResim.src
    GResimYolu = Replace(GResimYolu, "data:image/jpeg;base64,", "")
    A = GResimYolu
    Open CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png" For Binary As #1
    Put #1, 1, DecodeBase64(A)
    Close #1
    Controls("parca_resmi" & X) = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
    Controls("rsm_resim" & X).Picture = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
Next
        
MsgBox ("resimler geldi")



End Sub