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