Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

gestioni immagini dinamiche

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

gestioni immagini dinamiche

Postdi sandrorovri » 23/03/17 20:40

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
sandrorovri
Newbie
 
Post: 4
Iscritto il: 23/03/17 19:46

Sponsor
 

Re: gestioni immagini dinamiche

Postdi Anthony47 » 24/03/17 20:08

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 14984
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: gestioni immagini dinamiche

Postdi sandrorovri » 27/03/17 18:58

Grazie mille Anthony47, proverò questa soluzione al più presto, buona giornata
sandrorovri
Newbie
 
Post: 4
Iscritto il: 23/03/17 19:46

Re: gestioni immagini dinamiche

Postdi sandrorovri » 27/03/17 20:20

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
sandrorovri
Newbie
 
Post: 4
Iscritto il: 23/03/17 19:46

Re: gestioni immagini dinamiche

Postdi Anthony47 » 27/03/17 23:59

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 14984
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: gestioni immagini dinamiche

Postdi sandrorovri » 28/03/17 17:58

Grazie Anthony, ho provato, funziona tutto.
sandrorovri
Newbie
 
Post: 4
Iscritto il: 23/03/17 19:46


Torna a Applicazioni Office Windows


Topic correlati a "gestioni immagini dinamiche":


Chi c’è in linea

Visitano il forum: Marius44, xilofono e 18 ospiti