Risultati da 1 a 15 di 15

Discussione: cambio immagine al cambio testo



  1. #1
    L'avatar di fudo7
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    ITALIA
    Messaggi
    27
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Unhappy cambio immagine al cambio testo

    salve a tutti.
    ho provato a cercare nel forum prima di scrivere qui, ma a quanto pare o non c'è qualcosa di attinente, o lo cerco con le parole chiave errate.

    potreste darmi una mano?
    il problema è:
    se nella cella C1 scrivo LUNA, in qualche modo può apparire nella cella B1 un'immagine di una LUNA?
    come se idealmente avessi una tabella (sullo stesso foglio o su un altro della stessa cartella, importa poco) con in una colonna (A1:A30 ad esempio) scritte le varie parole e nella colonna accanto (B1:B30) le immagini corrispondenti.
    se fossero solo parole, con un cerca verticale avrei risolto. ma con le immagini non posso farlo.
    help please! :(

  2. #2
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: cambio immagine al cambio testo

    ciao vedi se ti può andare bene come esempio

    la grandezza delle immagini puoi variarla a piacimento

    se poi avessi un file esempio da allegare sarebbe ancora meglio
    File Allegati File Allegati

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di fudo7
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    ITALIA
    Messaggi
    27
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: cambio immagine al cambio testo

    è esattamente quello che intendevo. mitico.
    l'unica cosa è:
    nel tuo file nella cella A1 inserisci il nome dell'immagine e nella cella C1 appare l'immagine. ma se la cella A1 è il risultato di una formula, dà errore.
    io intendo, ad esempio:
    faccio un cerca verticale nella cella A1 e come risultato mi da la parola LUNA (o la parola "a" nel tuo caso), può fare la stessa cosa senza darmi errore perché non l'ho scritta a mano?

    grazie mille già della tua disponibilità. mi hai risolto metà dei problemi in un post.

  5. #4
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: cambio immagine al cambio testo

    Se in colonna A hai una formula, nella speranza che non siano tante righe.
    Potresti usare questo modo "poco ortodosso"
    Copy le formule della colonna A ed incolli nella colonna B solo i valori
    Ps. esempio colonna B, però puoi mettere dove vuoi variando il codice
    Codice: 
    Private Sub Worksheet_Calculate()
    Dim X, Ur
    Ur = Range("A" & Rows.Count).End(xlUp).Row
    For X = 1 To Ur
        If Cells(X, 2) <> Cells(X, 1).Value Then
            Cells(X, 2) = Cells(X, 1).Value
            MsgBox "cambiato il valore della formula in riga " & X & " inserisci il codice per visualizzare la foto"
        End If
    Next X
    End Sub

  6. #5
    L'avatar di fudo7
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    ITALIA
    Messaggi
    27
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: cambio immagine al cambio testo

    scusa raffaele ma non ho capito la tua soluzione.

    al posto della parte

    MsgBox "cambiato il valore della formula in riga " & X & " inserisci il codice per visualizzare la foto"

    inserisco questo?

    Codice: 
    ActiveSheet.Pictures.Insert( _
    ThisWorkbook.Path & "\" & Target.Value & ".gif").Select
    Selection.ShapeRange.ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
    Selection.Top = Target.Offset(0.5, 0).Top
    Selection.Left = Target.Offset(0.5, 0).Left
    ci ho provato ma il debug mi da l'errore poprio in questo codice.
    dove sbaglio?
    Ultima modifica fatta da:cromagno; 17/06/16 alle 11:38 Motivo: Inserito codice tra i tag CODE...

  7. #6
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: cambio immagine al cambio testo

    A me funziona
    La risposta è già completta, in base al file di Gianfranco55
    Se tu hai formule, Worksheet_Change non scatena l'evento
    Basta aggiungere il codice, che Worksheet_Calculate lo percepisce e scrive la modifica in colonna B, a questo punto interviene Worksheet_Change che inserisce la foto.
    L'unica modifica >>>Set rng = Me.Range("B1:B200")

    >>>in riga " & X & " inserisci il codice per visualizzare la foto"
    Qui è tutt'altro discorso e non si può usare il Target
    File Allegati File Allegati

  8. #7
    L'avatar di Lucio72
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Roma
    Età
    45
    Messaggi
    13
    Versione Office
    2007
    Likes ricevuti
    1

    Re: cambio immagine al cambio testo

    Ciao!!!
    Come va inserita l'immagine se nella casella a fianco corrisponde a una determinata parola? (SE ....=...;A.jpg;"")???
    Ho aperto l'XLS ma non riesco a capire...

  9. #8
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: cambio immagine al cambio testo

    Ciao
    Lucio

    devi prima scaricare il mio file (cartella)
    e poi inserire il file di Raf nella cartella
    altrimenti le immagini non ci sono.

  10. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1114
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: cambio immagine al cambio testo

    Tutti hanno allegato un file meno che il diretto interessato !!!

  11. #10
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: cambio immagine al cambio testo



    signori miei sembra che qualcuno non abbia capito bene come funziona
    il tutto.

    è obbligatorio avere una cartella con dentro le immagini e nella stessa cartella avere il file.
    altrimenti bisogna cambiare la directory.

    il messaggio non è obbligatorio se non si vuole basta levarlo
    vi allego il file

    lanciare il file 44444

    per chiarezza la formula scritta da Raf è puramente indicativa
    serve a farVi capire come si deve fare.

    se Fudo ci allega il file o la formula del suo file
    magari potremo intervenire.
    File Allegati File Allegati

  12. #11
    L'avatar di fudo7
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    ITALIA
    Messaggi
    27
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: cambio immagine al cambio testo

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    Tutti hanno allegato un file meno che il diretto interessato !!!
    non ho allegato nessun file perché, come ho detto subito dopo la risposta di gianfranco55, è esattamente quello che intendevo. se avessi allegato un file, sarebbe stato identico al suo.
    ho solo chiesto dopo, se ci metto una formula nella casella di inserimento della parola al posto della digitazione manuale, perché dava errore.

  13. #12
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: cambio immagine al cambio testo

    Ciao Fudo

    sei riuscito a risolvere nel tuo file

  14. #13
    L'avatar di fudo7
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    ITALIA
    Messaggi
    27
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: cambio immagine al cambio testo

    ciao gianfranco e grazie ancora per la disponibilità e la velocità di risposta.

    diciamo che la tua soluzione iniziale è quella che ho usato. scrivere manualmente il nome dell'immagine è l'unica cosa che mi funziona.
    ho usato anche il codice di raffaele che ringrazio ugualmente per la disponibilità ma, essendo io un po' incapace, ho difficoltà ad inserire.

    ora vi mando qui il file che ho costruito mettendo i riferimenti giusti ai target del codice originario che mi hai dato.

    spiego come funziona:
    parto col fatto che la colonna "I" dovrebbe essere al posto della colonna "B" l'ho spostata proprio perché volevo vedere se avesse funzionato mettendo il tuo codice e scrivendo manualmente..
    nella colonna I (che in realtà normalmente dovrebbe essere B) c'è un cerca verticale, il nome che ottengo è il nome immagine che mi interessa.
    ovviamente adesso scrivo manualmente nella colonna B il nome per far apparire sempre nella colonna B l'immagine (che copre poi il testo).

    praticamente io vorrei che scrivendo il nome nella colonna "C" fa il cerca verticale nella colonna "B" e automaticamente l'immagine corrispondente va a coprire il testo scritto nella colonna "B".
    spero di essere stato chiaro.
    File Allegati File Allegati

  15. #14
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2076
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: cambio immagine al cambio testo

    Ok capito due minuti e te lo sistemo

    ----------Post unito in automatico----------

    eccoci

    io ho utilizzato la colonna T ( 20)
    tu spostala dove vuoi

    ti posto il codice
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        
        Dim rng As Range
        Dim shp As Shape
        Dim bln As Boolean
        Set rng = Me.Range("T1:T200")
        
        If Not Intersect(Target, rng) Is Nothing Then
            If Target.Cells.Count > 1 Then Exit Sub
         
            If Target.Value <> "" Then
                For Each shp In Me.Shapes
                    If shp.Top = Target.Offset(0, 0).Top Then 'i due 0 sono i target della destinazione immagine in righe e colonne offset da modificare nell'intero sub
                        If shp.Left = Target.Offset(0, 0).Left Then
                            shp.Delete
                        End If
                    End If
                Next
                ActiveSheet.Pictures.Insert( _
                    ThisWorkbook.Path & "\" & Target.Value & ".gif").Select
                            Selection.ShapeRange.ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
                Selection.Top = Target.Offset(0.5, -18).Top
                Selection.Left = Target.Offset(0.5, -18).Left
        
            Else
                For Each shp In Me.Shapes
                    If shp.Top = Target.Offset(0, 0).Top Then
                        If shp.Left = Target.Offset(0, 0).Left Then
                            shp.Delete
                        End If
                    End If
                Next
            End If
        End If
               If Target.Value = "" Then
                For Each shp In Me.Shapes
                    If shp.Top = Target.Offset(0, 0).Top Then
                        If shp.Left = Target.Offset(0, 0).Left Then
                            shp.Delete
                        End If
                    End If
                      
                Next
                End If
        Target.Select
        
        Set rng = Nothing
        
    End Sub
    Private Sub Worksheet_Calculate()
    Dim X, Ur
    Ur = Range("A" & Rows.Count).End(xlUp).Row
    For X = 2 To Ur
        If Cells(X, 20) <> Cells(X, 2).Value Then
            Cells(X, 20) = Cells(X, 2)
        End If
    Next X
    End Sub
    in rosso i dati da cambiare per le variazioni di colonna
    File Allegati File Allegati

  16. I seguenti utenti hanno dato un "Like"


  17. #15
    L'avatar di fudo7
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    ITALIA
    Messaggi
    27
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    4

    Re: cambio immagine al cambio testo

    L'ho appena provato e funziona alla grande!! ho anche capito dove sbagliavo.

    grazie mille. ora è perfetto.

Discussioni Simili

  1. Cambio turno
    Di sebgi nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 23/01/17, 22:56
  2. cambio colore oggetti
    Di morenomax nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 25/03/16, 19:27
  3. Cambio colore cella
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 22/01/16, 19:20
  4. Cambio nome utente e id
    Di Ste nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 10
    Ultimo Messaggio: 18/06/15, 18:50

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •