Soru Hücre İçeriğine Göre Klasörden Resim Çağırma

[poschen]

Merhaba,

Forumdaki konu ile ilgili diğer konuları araştırdım ancak tam olarak aradığımı bulamadım.

Aşağıdaki videodaki işi yapacak bir makro oluşturmak istiyorum.

Kısaca anlatmak gerekirse, A sütununda ürün adları olacak. 1 2 3 gibi. Ben makroyu çalıştırdığımda A1 hücresinde 1 yazıyorsa, göstereceğim klasördeki 1.jpg'i alıp, B1'in en boyuna göre boyutlandırıp, B1'e eklemesini istiyorum.

Videoda attığım excel image assistant eklentisi bu işi yapıyor, satın aldım zamanında ama bilgisayarım bozuldu ve lisans kodumu deaktive edemiyorum. Satıcı da destek vermiyor. Tekrar para vermek istemiyorum çünkü eklenti kurduğunuz bilgisayarda kalıyor. Her hangi bir bozulmada vs lisansınızı kullanamıyorsunuz.

Yardımcı olabilecek var mıdır?

 

[yakocan21]

Merhabalar,

excelde bir hücreye tıkladıgımda sabir bir resmin o hücredeki değere göre değişmesini istiyorum. aşağıdaki kodları yazdım ancak burada şöyle bişey oluyor. Klasörde eğer ilgili resim yoksa sayfamda bulunan sabit resim kayboluyor ve birdaha da geri gelmiyor. Bu kodda bir hata var ancak bulamadım. yardımcı olabilir misiniz?


'''''Modül içerisine yazılacak kod'''''''''''''''''''''''''''''''''''''''''''''
Global yol As String
Sub resim_degistir()
On Error Resume Next
strPic = "Resim 129"
Set shp = ActiveSheet.Shapes(strPic)
With shp
t = .Top
l = .Left
h = .Height
w = .Width
End With
If yol = "" Then Exit Sub
ActiveSheet.Shapes(strPic).Delete
Set shp = ActiveSheet.Shapes.AddPicture(yol, msoFalse, msoTrue, l, t, w, h)
shp.Name = strPic
End Sub


''''Sayfa içerisine yazılacak kod'''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim satir As Long
If Not Intersect(Target, Range("D160000")) Is Nothing Then
satir = Target.Row
yol = Range("Z" & satir).Value
resim_degistir
End If
End Sub

 

[yakocan21]

Merhabalar,

excelde bir hücreye tıkladıgımda sabir bir resmin o hücredeki değere göre değişmesini istiyorum. aşağıdaki kodları yazdım ancak burada şöyle bişey oluyor. Klasörde eğer ilgili resim yoksa sayfamda bulunan sabit resim kayboluyor ve birdaha da geri gelmiyor. Bu kodda bir hata var ancak bulamadım. yardımcı olabilir misiniz?


'''''Modül içerisine yazılacak kod'''''''''''''''''''''''''''''''''''''''''''''
Global yol As String
Sub resim_degistir()
On Error Resume Next
strPic = "Resim 129"
Set shp = ActiveSheet.Shapes(strPic)
With shp
t = .Top
l = .Left
h = .Height
w = .Width
End With
If yol = "" Then Exit Sub
ActiveSheet.Shapes(strPic).Delete
Set shp = ActiveSheet.Shapes.AddPicture(yol, msoFalse, msoTrue, l, t, w, h)
shp.Name = strPic
End Sub


''''Sayfa içerisine yazılacak kod'''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim satir As Long
If Not Intersect(Target, Range("D160000")) Is Nothing Then
satir = Target.Row
yol = Range("Z" & satir).Value
resim_degistir
End If
End Sub

Merhaba burada istedğim sayfanın sol üzerinde sabit bir resim olacak ve sütundaki değerlere tıkladıkça bu değişecek. var mı yardımcı olabilecek birisi.

 

[muygun]

Merhaba burada istedğim sayfanın sol üzerinde sabit bir resim olacak ve sütundaki değerlere tıkladıkça bu değişecek. var mı yardımcı olabilecek birisi.

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://dosya.co/3wdnq0f4uf96/yakocan21-resim_işlemi.rar.html