Excel de makaro ile resim çağırma

Örnek olması açısından şöyle bir senaryo izleyelim.

• A1 Hücresine 1 yazıldığında Bilgisayarımda kayıtlı bulunan 1.jpg isimli resmin; A1 Hücresine 2 yazdığımda ise 2.jpg isimli resmin açılmasını istiyorum

Bunun için aşağıdaki kodları sayfanın kod kısmına girmeniz gerekecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim res As String
Dim a As Shape
Dim B4 As Range
If Target = "" Or Target.Address <> "$A$1" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set B4 = Range("B4")
For Each a In Shapes
a.Delete
Next a
B4.ClearContents
res = "C:\Resimler\" & Target & ".jpg"
If Dir(res) = "" Then
B4 = "RESİM YOK"
Else
With ActiveSheet.Pictures.Insert(res)
.Left = B4.Left
.Top = B4.Top
.Height = B4.Height
.Width = B4.Width
End With
End If
End Sub

Sinan bey;

Sorunuma çare bulmak için uzun zamandır benzeri bir kod arıyorum, mevcut hali ile 100lercesi arasında işime en çok yarayanı.

C:\Resimler içinde değil de, excel dosyasının da içinde bulunduğu dosyadan alabilir mi? ( bazen masaüstü olur, bazen de belgelerim içinde başka bir klasör )

verdiğiniz makroyu değiştirmeyi denedim ancak beceremedim. Mevcut makro B4 hücresine sığdırıyor, boyu uygun oranda ayarlıyor ve ben kulağından tutup büyütüyorum. Bunu da otomatikleştirmenin yolu olabilir diye düşünüyorum. Belirli bir piksel x piksel oranında, birleştirilmiş hücrelere ya da çerçeve ile çevrelenmiş hücrelere enden ya da boydan sığdıracak düzenleme yapmak mümkün müdür?

 dediğim gibi; bu hali ile de işimi görüyor ancak düzeltebilirsem mükemmel olur.

teşekkürler 

Ilgili satiri bu sekilde değiştirip deneyiniz; res = thisworkbook.path &"\" & Target.Value & ".jpg"

 ThisWorkbook.Path veya ActiveWorkbook.Path, Excel dosyasının bulunduğu dizin içerisinde demektir.

Kulağından çekme mevzûsu için, height ve width ayarlariyla oynamalar yapabilirsiniz. 

murat bey merhaba,

benimde benzer bir konuda sorunum var sizden nasıl destek alabilirim?