Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Aggiornamento automatico Collegamenti ipertestuali e nomi file immagine collegati

Ultimo Aggiornamento: 11/10/2017 22:05
Post: 84
Registrato il: 24/07/2013
Città: SALERNO
Età: 52
Utente Junior
Excel LTSC 2021
OFFLINE
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
Post: 5.264
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
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
Post: 84
Registrato il: 24/07/2013
Città: SALERNO
Età: 52
Utente Junior
Excel LTSC 2021
OFFLINE
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
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 06:25. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com