gestioni immagini dinamiche

[sandrorovri]

Ciao a tutti, sono nuovo del forum e ho un problema da risolvere
sto creando un foglio di Excel che mi servirà per alcuni calcoli, per semplificare il compito a chi dovrà inserire i dati, voglio affiancare delle immagini come promemoria visivo,
vorrei sapere come posso gestire le immagini, tramite codice VBA, che ho inserito sovrapposte in una cella B1 in modo che quando sono sulla cella A1 si visualizzi l'immagine 1, quando mi sposto sulla cella a2 si visualizzi l'immagine 2, le immagini si dovranno visualizzare alternativamente solo spostandomi sulle celle interessate diciamo da A1 a A10.
Se mi trovo in A1 vedrò l'immagine 1 che si trova in B1, se inserisco un dato e premo invio mi sposterò ovviamente sulla cella A2 e in automatico si visualizzerà l'immagine 2 sempre in B1, se mi sposto con i tasti freccia nuovamente in A1, in B1 si visualizzerà nuovamente l'immagine 1.
Spero di essere stato abbastanza chiaro.
Grazie a tutti fin da ora per l'aiuto.

Sposto in Applicazioni Office Windows, aurelio37

[Anthony47]

Partendo dal foglio su cu lavori, fai tasto dx sul tab col suo nome e scegli Visualizza codice; poi copia il seguente codice e incollalo nel frame di dx:

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nSH As Shape, pName As String
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
pName = "Picture"                     '<<< La "Radice" del nome delle immagini
For Each nSH In ActiveSheet.Shapes
    If Left(nSH.Name, Len(pName)) = pName Then nSH.Visible = msoFalse
    If nSH.Name = pName & " " & Target.Cells(1, 1).Row Then nSH.Visible = msoCTrue
Next nSH
End Sub

Personalizza la riga matrcata <<< come da commento.
Poi torna sul foglio e prova a selezionare qualche cella nell'intervallo A1:A10

Ciao

[sandrorovri]

Grazie mille Anthony47, proverò questa soluzione al più presto, buona giornata

[sandrorovri]

Ciao Anthony, ho provato il codice, ma l'effetto non è quello desiderato.
Provo a darti qualche altra indicazione, premesso che non sono molto pratico di VBA,
dal mio Foglio1, se attivo il riquadro di selezione, trovo che nel foglio stesso ho una serie di Immagini che ho chiamato ImmagineA1, ImmagineA2, ImmagineA3 ecc.., ho copiato il codice che mi hai postato e ho sostituito " Picture" con "Immagine".
Se dal riquadro selezione attivo tutte le immagini, queste rimangono sempre attive, quando mi muovo su qualsiasi cella da A11 in poi.
Quando mi posiziono anche a caso su una qualsiasi cella da A1 a A10 le immagini si disattivano tutte insieme, se inverto msoFalse con msoCTrue, l'effetto è contrario, selezionando le celle da A1 a A10 si attivano tutte le immagini.
Il mio è Excel 2007
Grazie in anticipo

[Anthony47]

Nel primo messaggio dicevi che le immagini si chiamavano Immagine1, Immagine2 etc etc; ora si chamano ImmagineA1, ImmagineA2, etc etc.
Devi quindi personalizzare la riga marcata <<< con "ImmagineA"

Ciao

[sandrorovri]

Grazie Anthony, ho provato, funziona tutto.