avrei bisogno del vostro aiuto per risolvere un problema:
ho una cartella immagini con dentro un insieme di file JPG, tramite la seguente macro inserisco nella colonna "A" i nomi dei file JPG presenti nella cartella:
- Codice: Seleziona tutto
Private Sub importa_nomi()
Dim MyPath, MioFile
Sheets("Foglio1").Range("A1").Select
MyPath = ActiveSheet.Cells(1, 1)
MioFile = "C:\Users\utente\Desktop\Zoom" & "\" & "*.*"
MyName = Dir(MioFile, vbDirectory)
rg = 1
Do While MyName <> ""
If MyName = ".." Then GoTo lab1
rg = rg + 1
lab1: MyName = Dir
ActiveSheet.Cells(rg, 1) = MyName
Loop
End Sub
volevo sapere se era possibile nella colonna "B" inserire l'immagine appartenente al nome della colonna "A"
es. nella colonna "A" ho il nome del file 004010001.jpg nella colonna B vorrei visualizzare l'immagine e cosi' per tutte le immagini presenti nella cartella immagini
Vi ringrazio anticipatamente
Nicola_na