Show different Pictures for different options depending on two list values

[goncalocoelho]

Hi everyone, I would really appreciate if someone could help me with a little problem i'm having.

I'm trying to code an excel sheet to act as a kind of form, and i need to show different pictures that update when i change the list values marked as yellow on the picture below.
The code I currently have on the sheet doesn't seem to work as it gives me a error when i try make a case with the values in Cell G21 (Option1) and O18 (Fixed Window). Is there any other simpler way of doing this?

Thank you all,

If Not Intersect(Target, Range("G21")) Is Nothing Then Select Case Range("G21") Case "Option1" And Range("O18") = "Fixed Window": Call delete_shp2 Sheets("Imagens").Shapes("fix_1").Copy Sheets("Form").Paste Set shp3 = Sheets("Form").Shapes("fix_1") shp3.Left = Sheets("Form").Range("L20").Left shp3.Top = Sheets("Form").Range("L20").Top shp3.Height = Sheets("Form").Range("L20:L29").Height shp3.LockAspectRatio = msoTrue shp3.Visible = msoTrue Case "Option1" And Range("O18") = "Sliding Window": Call delete_shp2 Sheets("Imagens").Shapes("sld_1").Copy Sheets("Form").Paste Set shp3 = Sheets("Form").Shapes("sld_1") shp3.Left = Sheets("Form").Range("L20").Left shp3.Top = Sheets("Form").Range("L20").Top shp3.Height = Sheets("Form").Range("L20:L29").Height shp3.LockAspectRatio = msoTrue shp3.Visible = msoTrue Case "Option2" And Range("O18") = "Fixed Window": Call delete_shp2 Sheets("Imagens").Shapes("fix_2").Copy Sheets("Form").Paste Set shp3 = Sheets("Form").Shapes("fix_2") shp3.Left = Sheets("Form").Range("L20").Left shp3.Top = Sheets("Form").Range("L20").Top shp3.Height = Sheets("Form").Range("L20:L29").Height shp3.LockAspectRatio = msoTrue shp3.Visible = msoTrue Case "Option2" And Range("O18") = "Sliding Window": Call delete_shp2 Sheets("Imagens").Shapes("sld_2").Copy Sheets("Form").Paste Set shp3 = Sheets("Form").Shapes("sld_2") shp3.Left = Sheets("Form").Range("L20").Left shp3.Top = Sheets("Form").Range("L20").Top shp3.Height = Sheets("Form").Range("L20:L29").Height shp3.LockAspectRatio = msoTrue shp3.Visible = msoTrue End Select End If

 

[goncalocoelho]

Can someone help me please?

 

[goncalocoelho]

up