Ciao By Sal, grazie per il tuo (sempre) cortese riscontro e scusami per il ritardo nella mia risposta; avendo visto i pochi accessi al mio quesito disperavo in una soluzione.
Poiché pensavo che per visualizzare le immagini da un file .xlsx non si potesse prescindere dai collegamenti ipertestuali, sono partito da quelli nella formulazione della mia richiesta sul forum; cosa che ha contribuito a non riuscire a spiegarmi bene su quella che era la mia esigenza primaria e cioè la modifica AUTOMATICA del nome di un file immagine da elenco in un file Excel.
Cioè, scrivo ‘Pippo.jpg’ in cella ‘A1’ di un foglio di lavoro;
Nomino manualmente una foto con estensione .jpg in cartella ‘FOTO’ come ‘Pippo’ (Quindi ‘Pippo.jpg’)
Quando modifico il contenuto della cella ‘A1’ da ‘Pippo.jpg’ a ‘Pippo2.jpg’ il nome della foto cambia AUTOMATICAMENTE in Pippo2.jpg’
Alla fine ho trovato una soluzione sul web da parte di un certo Anthony che descrivo:
1) In colonna A di un file Excel si inseriscono i nomi delle foto da modificare
• A1 = Pippo
• A2= Paperino
• A3=Pluto
2) In colonna B i nomi delle foto modificati
• A1 = Pippo2
• A2 = Paperino2
• A3 = Pluto2
3) Accanto alla cartella con le immagini collegate (es. ‘FOTO’) si affianca una cartella VUOTA dal nome (‘FOTO2’)
4) Si inseriscono nella macro i percorsi delle due cartelle, es.
SorgD = "C:\Users\Home\Desktop\FOTO\"
DestD = "C:\Users\Home\Desktop\FOTO2\"
All’esecuzione della Macro con scelta rapida da tastiera i nomi delle foto cambiano automaticamente.
A seguire il codice
SorgD = "C:\Users\Home\Desktop\FOTO\"
DestD = "C:\Users\Home\Desktop\FOTO2\"
Range("A1").Select
On Error Resume Next
Do While Selection.Value <> ""
FileCopy SorgD & Selection.Value, DestD & Selection.Offset(0, 1).Value
Selection.Offset(1, 0).Select
Loop
Grazie del tuo supporto
Buona serata
Windows 10 - Excel LTSC