- Katılım
- 19 Mart 2010
- Mesajlar
- 144
- Excel Vers. ve Dili
- Office 365 İngilizce
- Altın Üyelik Bitiş Tarihi
- 20-01-2024
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.
Kod:
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