Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Value = "HE-7" Then
Sheets("Sayfa2").Select
ActiveSheet.Shapes("Picture 157").Select
GoTo 10
End If
If ActiveCell.Value = "HE-11" Then
Sheets("Sayfa2").Select
ActiveSheet.Shapes("Picture 49").Select
GoTo 10
End If
MsgBox ("Tanımsız")
10
End Sub
Burada gördüğünüz gibi HE-7 ve HE-11 için bu işlem yapılmış. Sizin yapacağınız diğer durumlara karşılık gelen resim nolarını tespit edip bu rutini tekrarlamak.
İyi çalışmalar.