Melihhh adlı üyeden alıntı: mesajı görüntüle
html_content = driver.page_source
soup = BeautifulSoup(html_content, 'html.parser')
src = soup.find('div', class_='g1-img-wrap mashsb-micro-wrapper').find('img')['src']
print(src)

burada src den sanırım şu şekilde yapman lazım bard öyle diyor

Bard!
' Resim URL'sini değişkene atayın
Dim resimUrl As String
resimUrl = "https://cdn.r10.net/image.php?u=130789&avatartime="

Bard!
' Dosya adını oluşturmak için StrMid fonksiyonunu kullanın
Dim dosyaAdi As String
dosyaAdi = StrMid(resimUrl, InStr(1, resimUrl, "/", vbTextCompare) + 1, _
InStrRev(resimUrl, ".", vbTextCompare) - InStr(1, resimUrl, "/", vbTextCompare) - 1)

' Dosya uzantısını ekleyin
dosyaAdi = dosyaAdi & ".jpg"

Sen resim url yerine yukarda src ye vericen ve print sc ile uğraşmadan net resmi alıyor olman lazım.
Şu kodlarla çözdüm.. Herkese teşekkür ederim..

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As LongPtr
Sub gorselindir()

    Url = indirfotourl
    dosyaYolu = "C:\Users\Fotoğraflar\" & fotoisim & urlal & ".webp"
    '"C:\Users\fatih\OneDrive\Masaüstü\Yeni klasör\" & "fotoisim" & i & ".jpg"
    
    URLDownloadToFile 0, Url, dosyaYolu, 0, 0
    Sheets("Haberler").Range("D" & HbBSonSatir + 1).Value = "İndirme Tamamlandı"
    Sheets("Haberler").Range("E" & HbBSonSatir + 1).Value = fotoisim & urlal & ".webp"
'Next i

'MsgBox "Çalışma tamamlandı"
End Sub