Excel Forum Per condividere esperienze su Microsoft Excel

Aggiornamento automatico Collegamenti ipertestuali e nomi file immagine collegati

  • Messaggi
  • OFFLINE
    Anthony D'Acunto
    Post: 84
    Registrato il: 24/07/2013
    Città: SALERNO
    Età: 52
    Utente Junior
    Excel LTSC 2021
    00 08/10/2017 12:31
    Buongiorno a tutti
    Confido che esista una soluzione VBA (che tuttavia ignoro) per i collegamenti ipertestuali e immagino il ricorso ad un programma esterno per i nomi dei file.
    Magari mi sbaglio e la competenza e infinita fantasia degli esperti del Forum mi caccia dal cilindro una soluzione VBA anche per i nomi dei file .jpg?

    Ringrazio anticipatamente per qualsiasi risposta e procedo con la mia richiesta:
    Ho un foglio Excel con una lista di prodotti commerciali (es. Batterie Duracell), per diverse centinaia di righe;

    In ogni riga, Ciascun prodotto è catalogato per:
    'COLONNA A': Numero progressivo..............................'A3': 001
    'COLONNA B': Prodotto...............................................'B3': BATTERIE_DURACELL_Mini-Stilo_
    'COLONNA C': Prezzo...................................................'C3': €3,50

    'COLONNA D': (con Formula CONCATENA)........................'D3': 001_BATTERIE_DURACELL_Stilo_€3,50

    'COLONNA E': Collegamento ipertestuale per l'apertura del File Immagine .jpg associato (inserito in cartella Windows e nominato MANUALMENTE come da 'D3')


    Vorrei che
    A) La modifica delle celle in intervallo A:D fosse AUTOMATICA non solo per l'intervallo 'D', ma anche per i collegamenti ipertestuali in 'E' e per i nomi dei file immagine in cartella Windows.

    Allego File di esempio

    Windows 10 - Excel LTSC
  • OFFLINE
    by sal
    Post: 5.264
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 10/10/2017 08:15
    Collegamenti Ipertestuali Immagini
    Ciao Pierpaolo, non ce bisogno dei collegamenti ipertestuali per vedere le immagini di un listino, basta un poco di VBA.

    ti allego il file, bisogna adattarlo al tuo format.

    basta selezionare il codice dell'articolo per vedere l'immagine.

    inoltre per la modifica puoi anche lasciare l'immagine nella cartella "Articoli", potrà sempre servire in seguito, ed inserire la nuova immagine con il nuovo codice.

    l'immagine viene cercata con il nome che inserisci nella colonna "I", quindi l'immagine dovrà avere lo stesso nome.

    Ciao By Sal [SM=x423051] [SM=x423025]

    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    Anthony D'Acunto
    Post: 84
    Registrato il: 24/07/2013
    Città: SALERNO
    Età: 52
    Utente Junior
    Excel LTSC 2021
    00 11/10/2017 22:05
    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 [SM=x423025]
    Buona serata






    Windows 10 - Excel LTSC