Hücreye resim getirme kodunda revizyon

[winstoncash]

Arkadaşlar merhaba. Bir dosyamda aşağıdaki kodla yanındaki hücrede yer alan ürün koduna göre o hücreye resim getiriyorum. Microsoft 360'da resim dosyasını hücre içine gömebiliyoruz. Ben bu kodu nasıl güncellemeliyim ki resmi hücrenin içine gömecek şekilde makrom çalışsın. Umarım sorum anlaşılır olmuştur. Örnek dosya eklemek isterim ama ilgili dosya birçok farklı dosya ve databaseden veri çektiği için çok mantıklı olmuyor. Yardımlarınız için şimdiden teşekkür ederim.

Sub Resimgetirmustafa()
  
    
    Dim NoA As Long, i As Long
    Dim PicFile As String, PicTop As Integer, PicLeft As Integer, PicW As Integer, PicH As Integer
    NoA = Range("D" & Rows.Count).End(xlUp).Row
 
    For i = 26 To 125
        
            PicFile = "C:\Users\" & Environ("username") & "\OneDrive\PAYLASIM\14-ÜRÜN FOTOĞRAFLARI\ürün resim\" & Range("D" & i).Text & ".png"
        If Dir(PicFile) = Empty Then
            Range("B" & i) = ""
            GoTo ResumeFor:
        End If
        PicTop = Range("B" & i).Top + 2
        PicLeft = Range("B" & i).Left + 2
        PicW = Range("B" & i).Width - 2
        PicH = Range("B" & i).Height - 2
        Set MyPic = ActiveSheet.Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH)
        
    
        
ResumeFor:
    Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Bu ifadenizden ne anlamalıyız.

Microsoft 360'da resim dosyasını hücre içine gömebiliyoruz.

Ofis 365 sürümünde fonksiyon yardımıyla resim eklenebiliyor.

IMAGE function - Microsoft Support

support.microsoft.com