inserimento immagini

[ricky53]

Ciao,
allora copia il seguente codice nel foglio dove hai lavorato fino ad adesso (tasto destro sul "TAB" con il nome del foglio, Visualizza codice)

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim MIO_File As String
   
    MIO_File = "C:\Users\Desktop\ZOOM\" & Target
    Shell "rundll32.exe url.dll,FileProtocolHandler " & (MIO_File), vbNormalFocus
    Cancel = True
End Sub


Posizionati su una cella della colonna "A" ove hai scritto un nome di una immagine e fai "Doppio Click" sul questo nome e ...

Facci sapere cosa ottieni

[nicola_na78]

Ricky53, sei un mago....
funziona sia nella colonna A che in qualsiasi colonna si mette il nome dell'immagine, facendo doppia clic sulla cella ti fa vedere l'anteprima dell'immagine....

Grazie

[ricky53]

Ciao,
grazie a te per il "mago" ... Eh, WEh !!!
Comunque io ho solo fatto una ricerca nella mia biblioteca personale costituita da soluzioni trovate ed archiviate nell'arco di anni di utilizzo di Excel ed avendone trovata una simile l'ho adattata alla tua esigenza.

Se vuoi che l'immagina venga presa solo dalla colonna "A" va sostituita l'istruzione

Codice: Seleziona tutto

MIO_File = "C:\Users\Desktop\ZOOM\" & Target

con questa

Codice: Seleziona tutto

 MIO_File = "C:\Users\Desktop\ZOOM\" & Cells(Target.Row, "A")