Excel de Resimlerin Sicil Numarasına Göre Çağırma

[KAPLAN381]

Personellerin sicil numarasına göre resimlerin çekilmesini satıra tam olarak sığdırılması gerekmektedir bu konuda yardımlarınızı bekliyorum şimdiden teşekkürler.

 

[1ndependent]

Personellerin resimleri eklediğim dosya içinde saklanmalıdır. Aksa halde kod çalışmaz.
Deneyebilirsiniz.

 

[KAPLAN381]

Teşekkür ederim yardımınız için fakat şöyle bir durum oldu 42. sıradan sonrasını almadı. resimler gelmiyor

 

[KAPLAN381]

Personellerin resimleri eklediğim dosya içinde saklanmalıdır. Aksa halde kod çalışmaz.
Deneyebilirsiniz.

Teşekkür ederim yardımınız için fakat şöyle bir durum oldu 42. sıradan sonrasını almadı. resimler gelmiyor

 

[KAPLAN381]

sorunu çözdüm resimlerden biri eksik olunca atlamıyor diğerlerini de bu sebepten görmüyor

 

[1ndependent]

Evet doğrudur, şuan bende bu şekilde kullanıyorum. Eğer o isimde bir resim yoksa ondan sonra devam eden numaraların resimleri olsa dahi getirmiyor.

Eğer kod üzerinde bir güncelleme yapabilirsem sizinle de paylaşırım.

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

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