Risultati da 1 a 3 di 3

Discussione: Visualizzare 2 immagini, con un'unica selezione



  1. #1
    L'avatar di Maurice315
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Napoli
    Messaggi
    5
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    1

    Visualizzare 2 immagini, con un'unica selezione

    Ciao a tutti, stavo cercando un modo per visualizzare delle immagini nel mio foglio excel, dietro particolari condizioni, e nonostante abbia trovato delle guide o altre soluzioni non sono riuscito ad adattarle alle mie necessitÓ (sono ancora un po' inesperto con il VBA).
    Chiedo quindi aiuto a voi, ecco il problema:

    Nel file allegato (semplificato) vedrete 2 immagini, 3 colonne limitate e una cella di selezione.
    Quello che vorrei ottenere Ŕ visualizzare le immagini sopra posizionate, selezionando l'Opzione desiderata dal men¨ a tendina (in realtÓ sarebbe pi¨ comodo usare dei pulsanti di opzione posti vicino ad ogni riga, ma non so quale macro sia pi¨ facile da realizzare). Come si pu˛ notare, le opzioni sono sicuramente tutte diverse, ma alcune di esse potrebbero far riferimento alla stessa struttura (e quindi alle stesse immagini).

    Le immagini saranno collocate nella stessa cartella del file (che pu˛ variare) e il nome delle immagini dovrebbe essere lo stesso di quello indicato nella colonna "NOME" (visto che le immagini abbinate ad ogni struttura sono 2, verosimilmente si potrebbero chiamare: Hotel Roma.jpg , Hotel Roma (2).jpg).
    Un'ultima indicazione: sarebbe possibile mantenere le immagini ad altezza costante?

    Grazie in anticipo
    File Allegati File Allegati

  2. #2
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: Visualizzare 2 immagini, con un'unica selezione

    Ciao Maurice, puoi prendere qualche spunto da questo post

    http://www.forumexcel.it/forum/7-dom...ll=1#post35801

    e dal file allegato
    Avvisi generali e importanti, pena CHIUSURA thread e/o BAN. Il crossposting Ŕ vietato. Le richieste di "pappa pronta" sono vietate. Utilizzate i tag CODE per il codice. Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.



  3. #3
    L'avatar di Maurice315
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Napoli
    Messaggi
    5
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    1

    Re: Visualizzare 2 immagini, con un'unica selezione

    Ciao Powerwin, grazie della dritta. Per quanto riguarda la semplice visualizzazione di un'immagine, sono riuscito a farlo funzionare usando il codice dell'allegato in quel post, ma poi non sono andato molto lontano.
    In particolare, ho ancora questi dubbi:
    1. Avrei bisogno che, non una, ma due immagini dipendessero dallo stesso men¨ a tendina (nel mio caso si trova in posizione I22), quindi le immagini dovrebbero cambiare simultaneamente.
    2. Inoltre, si potrebbe fare in modo che la cella (I22) dipenda da formule che rimandano ad altre celle? (In questo modo posso sostituire il men¨ a tendina con i pulsanti di opzione, prendendo spunto da questo video)

    I codici che ho adottato sono questi:
    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("I22")
        
        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(-20, 1).Top Then
                        If shp.Left = Target.Offset(-20, 1).Left Then
                            shp.Delete
                        End If
                    End If
                Next
                ActiveSheet.Pictures.Insert( _
                    ThisWorkbook.Path & "\" & Target.Value & ".jpg").Select
                Selection.Top = Target.Offset(-20, 1).Top
                Selection.Left = Target.Offset(-20, 1).Left
            Else
                For Each shp In Me.Shapes
                    If shp.Top = Target.Offset(-20, 1).Top Then
                        If shp.Left = Target.Offset(-20, 1).Left Then
                            shp.Delete
                        End If
                    End If
                Next
            End If
        End If
        
        Target.Select
        
        Set rng = Nothing
        
    End Sub
    E quest'altro per il modulo:
    Codice: 
    Public Sub m()    Dim sh As Worksheet
        Dim shp As Shape
        Set sh = ThisWorkbook.Worksheets("Foglio1")
        With sh
            .Range("I1:L6").Value = ""
            For Each shp In .Shapes
                shp.Delete
            Next
        End With
        Set shp = Nothing
        Set sh = Nothing
    End Sub
    File Allegati File Allegati

Discussioni Simili

  1. [Risolto] Non visualizzare le frecce in una tabella
    Di sitolofi nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 03/01/17, 14:00
  2. [Risolto] Come visualizzare le ore in negativo
    Di mimmo45 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 22/12/16, 10:11
  3. [Risolto] Visualizzare elenco ComboBox
    Di dpg70 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 02/12/16, 22:06
  4. Non visualizzare alcuni dati
    Di Chiarpato nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 29/10/16, 17:12
  5. Visualizzare Dashboard di Excel su Outlook
    Di antoniodamore nel forum Domande su Outlook
    Risposte: 1
    Ultimo Messaggio: 27/10/15, 19:43

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
  •