hücredeki değere göre farklı resim getirme

[green71tr]

slm.

a1 hücresindeki değer 1 ise a.jpg yi, 2 ise b.jpg yi görmek istiyorum.

mümkününü paylaşan olursa sevinirim.

 

[BG]

slm.

a1 hücresindeki değer 1 ise a.jpg yi, 2 ise b.jpg yi görmek istiyorum.

mümkününü paylaşan olursa sevinirim.

örnek dosyayı inceleyiniz.
not:c:\resimler klasörünü oluşturunuz bu klasörün içine a.jpg ve b.jpg isimli dosyaları kopyalayınız. daha sonra çalıştırınız.

 

[green71tr]

güzel olmuş teşekkürler, bunu mevcut bir dosyaya nasıl ekleyebilirim?

 

[BG]

güzel olmuş teşekkürler, bunu mevcut bir dosyaya nasıl ekleyebilirim?

mevcut dosyanızda 1-2 değişkenlerine göre işlem yapılacak sayfa adı üzerinde sağ tuş / kod görüntüle işlemini gerçekleştirin, aşağıdaki kodları yapıştırın ardından denetim araç çubuğu üzerinde bulunan image1 nesnesini ekranınıza çizin ve tasarım modundan çıkın dosyanız çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
 If [a1].Value = 1 Then
 Image1.Picture = LoadPicture("c:\resimler\a.jpg")
 ElseIf [a1].Value = 2 Then
 Image1.Picture = LoadPicture("c:\resimler\b.jpg")
 End If
 Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub