| | Post: 6 | Registrato il: 29/11/2013
| Città: MINERBIO | Età: 36 | Utente Junior | 2013 | | OFFLINE | |
|
05/06/2018 18:10 | |
Buonasera a tutti, avrei un quesito da sottoporre.
Ho una serie di immagini, una per ogni riga, rinominate Image1, Image2, Image3 ecc...
Nella colonna A ho una serie di nomi di nazioni (Italia, Francia, Germania, ecc...) che corrispondono al numero della mia Image.
Nella cartella BANDIERE sono presenti i relativi file jpg rinominati "nome della nazione".jpg
Vorrei creare una routine con vba di questo genere
for x = 1 to n
Worksheets("NAZIONI").Image X .Picture = LoadPicture("C:\BANDIERE\" & Worksheets("NAZIONI").Cells(x, 1).Value & ".jpg")
next x
dove al posto della X appaia il nome progressivo dell'immagine.
Spero di essermi spiegato al meglio.
Grazie in anticipo |
|
| | Post: 3.519 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
05/06/2018 19:00 | |
Dovrei ritrovare il file
Comunque serve un'esempio. Quando si dice "esempio", si itende in quale colonna/cella e "quali dati da valutare", dovrà finire la foto. Credo che dopo, se avrai ulteriori modifiche..., nessuno Ti darà altre soluzioni (fai un buon allegato).
http://www.freeforumzone.com/d/9837363/-/discussione.aspx Excel 2013 |
| | Post: 3.765 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
05/06/2018 19:08 | |
Alla cieca Io proverei con
Worksheets("Nazioni").Shapes("Image" & x).Picture = LoadPicture..........
Alfredo |
| | Post: 6 | Registrato il: 29/11/2013
| Città: MINERBIO | Età: 36 | Utente Junior | 2013 | | OFFLINE | |
|
06/06/2018 17:12 | |
Il codice proposto non funziona, purtroppo. Allego file con immagini, lavorateci pure su. Grazie ad entrambi per le risposte! [Modificato da Rabif 06/06/2018 17:14] |
| | Post: 3.524 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
06/06/2018 21:33 | |
1) Non c'è bisogno di mettere la cartella delle foto in C:\ (basta che sia insieme, dove è il files excel)
2) Decidi Tu se mettere un bottone per Elimina_Foto, oppure togli la spunta alla riga 'Call Elimina_Foto Excel 2013 |
|
|