You are here:---Rispondi a: [RISOLTO] immagini dinamiche in base a contenuto cella [proposta da Liquid]
Rispondi a: [RISOLTO] immagini dinamiche in base a contenuto cella [proposta da Liquid] 2018-08-30T09:05:40+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] immagini dinamiche in base a contenuto cella [proposta da Liquid] Rispondi a: [RISOLTO] immagini dinamiche in base a contenuto cella [proposta da Liquid]

BySalvBySalv
Amministratore del forum
    Post totali: 318

    Ciao Liquid, eccoti una soluzione, ma la cosa ottimale è creare una cartella separata per le immagini, ed il file deve stare dove si trova la cartella delle immagini.

    Questo perchè le immagini direttamente nel file oltre ad appesantire il file, se uno deve sostituirle poi sono problemi inoltre è più facile gestirle in questo modo.

    ti allego il file con la cartella, ho inserito le tue 3 immagini nella cartella Immagini.

    questa la macro che gestisce l’evento

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sPath, r, c
    r = Target.Row
    c = Target.Column
    If Not Intersect(Target, [f10]) Is Nothing Then
        On Error GoTo 1
        Image1.Visible = True
        Image1.Top = Cells(2, 1).Top
        Image1.Left = Cells(2, 1).Left
        sPath = ActiveWorkbook.Path & "\Immagini\" & Cells(r, c) & ".jpg"
        If Dir(sPath) = "" Then sPath = ActiveWorkbook.Path & "\articoli\" & "Manca" & ".jpg"
        Image1.Picture = LoadPicture(sPath)
    Else
    1:
        Image1.Visible = False
    End If
    End Sub

    per pulire l’immagine basta cancellare la cella “F10”

    ti allego il file compresso, il Link

    https://mega.nz/#!NVMQAQYT!_7hshu4DVAf06x-4f06D-kDhMP0vSt-48USgtJ5H5nA

    Ciao By Sal

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi