- Katılım
- 14 Ocak 2015
- Mesajlar
- 54
- Excel Vers. ve Dili
- OFFİCE 2010
- Altın Üyelik Bitiş Tarihi
- 11-08-2021
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Teşekkür ederim yardımınız için fakat şöyle bir durum oldu 42. sıradan sonrasını almadı. resimler gelmiyorPersonellerin resimleri eklediğim dosya içinde saklanmalıdır. Aksa halde kod çalışmaz.
Deneyebilirsiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
ActiveSheet.DrawingObjects.Delete
Dim ResimYolu As Variant
Dim resim As Object
For Satır = 3 To 500
ResimYolu = Dir(ActiveWorkbook.Path & "\" & Range("b" & Satır) & ".jpg", vbNormal)
If ResimYolu <> "" Then
Set resim = ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\" & ResimYolu)
With Range("a" & Satır)
resim.Top = .Top + 2
resim.Left = .Left + 2
resim.Height = .Height + 4
resim.Width = .Width - 4
End With
End If
Next Satır
End Sub