MACRO to insert image with respect to drop-down list

Question

Good morning, everyone,

I’m having a doubt I don’t know if it’s frivolous or not:

I have a field (the large rectangle) of which I want to insert an image inside it, according to the selected drop-down list.

For example: When I select from the drop-down list (L11) "Ceu2", I want the "Ceu2" image located in Q6 to appear in the rectangle. When selecting Heaven, the same thing, but for the image in Q5.

However, in the same rectangle, when the person selects through cell L3 the 2nd Drop-down List, with the options, stop appearing the images of the sky and appear which one he or she chooses, be it the "oculos" or the "train".

That would be great. I was trying to do this using the INDEX and CORRESP functions, but did not reach the character limit of the CORRESP kkk function

If anyone can help you out. then I want to pass X time without a new option change from the drop-down list, the image that appeared in the rectangle was that of the "theme" contained in Q9

If I get confused I’ll explain again, but at first it was just that. Thank you to anyone who can help =)

Answer 1

Solution without macro

Within what you’ve already built what you need to do is create a [Name Defined] formula and then link to the camera. Follow the steps:

1. Log in to [Name Manager]
2. In name manager create a new item
3. Footsteps:

NAME> cImage
Scope> Workbook
Comment> [branco]
refers to: > =OFFSET($Q$4;MATCH($L$11;$P:$P;0)-1;0)
Botão {OK}

Adc. a camera component, to activate:

1. File > Options
2. Follow steps 1 to 5. Option 6 should open for you.

From here just select the cell that is the image. In your case at $Q$5. and click on the camera. Note that the image will respect the size of the range/cell. Then try to add. images of the size you want to use and resize the cell and image of the same size.

Now when selecting the camera that is nothing more than a dotted square, change in the formula dash by =cImage

Answer 2

You can use the cbxListaSuspensa_change event so that each new change in your list a macro is excommunicated and from this execution the image is changed to the image path that is contained in the drop-down list.

Sub cbxListaSuspensa_change()
Dim caminho As String
'Valor que está na lista suspensa
caminho = cbxListaSuspensa.Value
'Setar a imagem que deve ser colocada no espaço
sheet1.Image1.Picture = LoadPicture(caminho)
End Sub