Mostra forma in base al contentuo di una cella

Avrei bisogno di un vostro aiuto.
Ho creato un piccolo file che al passaggio del mouse ( mouseover ) sulle celle B4,B6 e B8
riporta il contenuto in B1 della cella dove posizionato il cursore.
Vorrei poter aggiungere che se nella cella B1 c’è scritto “palla” mi appaia la forma della palla, mascondendo la “stella” e il “cuore”, se invece c’è scritto “cuore” mi appaia la forma di “cuore”, nascondendo la “stella” e la “palla”, e cosí via.
Questo però in modo dinamico al passaggio del solo mouse.
Qualcuno può aiutarmi a realizzarlo?

Grazie a tutti
Saluti
Marilena

Ciao Marilena

Tengo a precisare che l'oggetto Worksheet non dispone dell'evento MouseOver quindi quello che è stato fatto non utilizza tale evento.

Quanto alla tua domanda puoi provare questo codice da inserire nel modulo del foglio1



Ovviamente per far scomparire/apparire le forme devi selezionare le relative celle.

Ciao Marilena eccoti un esempio, ma ha bisogno di una cartella esterna contenente le immagini.

vedi se va bene

Ciao By Sal

Grazie mille a tutti.
Il fatto che avrei la necessità di assegnare una macro alla forma visibile e con il sistema delle immagini non mi è possibile.
Come alternativa sarebbe forse possibile prendere come riferimento il vero e il falso sulla colonna A ?
In modo che rimanga visibile la forma.

Saluti
Marilena

Ciao Marilena

Prova ad allegare le macro da associare alle forme specificando a quali di queste devono essere collegate.

è tassativo non utilizzare il clic sulla cella ? solo mouse over ?

Grazie mille a tutti.
Aggiungendo Cancel=True e il DoubleClick alla macro di Alfrimpa funziona anche il Mouseover.

Saluti
Marilena


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4, B6,B8")) Is Nothing Then
Select Case Target.Address
Case Is = "$B$4"
Worksheets("Foglio1").Shapes("Stella a 5 punte 1").Visible = True
Worksheets("Foglio1").Shapes("Ovale 2").Visible = True
Worksheets("Foglio1").Shapes("Cuore 3").Visible = True
Worksheets("Foglio1").Shapes("Ovale 2").Visible = False
Worksheets("Foglio1").Shapes("Cuore 3").Visible = False
Cancel = True
Case Is = "$B$6"
Worksheets("Foglio1").Shapes("Stella a 5 punte 1").Visible = True
Worksheets("Foglio1").Shapes("Ovale 2").Visible = True
Worksheets("Foglio1").Shapes("Cuore 3").Visible = True
Worksheets("Foglio1").Shapes("Stella a 5 punte 1").Visible = False
Worksheets("Foglio1").Shapes("Cuore 3").Visible = False
Cancel = True
Case Is = "$B$8"
Worksheets("Foglio1").Shapes("Stella a 5 punte 1").Visible = True
Worksheets("Foglio1").Shapes("Ovale 2").Visible = True
Worksheets("Foglio1").Shapes("Cuore 3").Visible = True
Worksheets("Foglio1").Shapes("Stella a 5 punte 1").Visible = False
Worksheets("Foglio1").Shapes("Ovale 2").Visible = False
Cancel = True
End Select
End If
End Sub