Questo articolo fa riferimento alla domada dell’articolo “Archivio con Fotografie degli articoli”

Il lettore mi ha mandato il file originale dove voleva inserire le immagini ed ho modifcato il codice precedentemente scritto per adattarlo al suo specifico caso:
14 foto divise in 2 colonne da popolare contemporaneamente.

Ho così risolto inserendo:
– nella colonna di sinistra 7 oggetti immagine nominati “Image1” , “Image3”,…… “Image7” (colonna numeri immagine DISPARI)
– nella colonna di destra 7 oggetti immagine nominati “Image2” , “Image4”,…… “Image14” (colonna numeri immagine PARI)

Ho creato due cicli “For-Next” uno per la colonna di sinistra, l’altro per la colonna di destra,
che assegna una variabile per il nome del vino (“NomeVino_DISPARI”) prendendo il valore dalla cella “Foglio3.Cells(i, 3)” e cerca il valore di tale variabile nel foglio “elenco” per essegnare ad un’altra variabile il valore della Regione corrispondente (“Regione_DISPARI”).

Ho inserito un contatore (“NomeImage_DISPARI”) che si incrementa di un’unità ad ogni ciclo e mi permette di fare riferimento ad un oggetto immagine chiamato “Image” & NumeroImage_DISPARI

Sheets("VINO").OLEObjects(NomeImage_DISPARI).Object.Picture

Con l’istruzione:

Sheets("VINO").OLEObjects(NomeImage_DISPARI).Object.Picture 
= LoadPicture(PercorsoCartellaFotografie & "\" & Regione_DISPARI & ".jpg")

carico nell’oggetto immagine la foto con il nome della variabile Regione_DISPARI.

Guardando il codice completo, noterete l’isrtruzione

For i = 2 To Last_Row_VINO Step 7

che si traduce come “per ‘i’ che assume valori da 2 all’ultima cella non vuota, aumentando di 7 unità ad ogni ciclo”.
Ciò perchè il nome del vino appare nella prima tabella alla riga 2, nella secondatabella alla riga 9, e così via.

Il codice è stato impostato per essere lanciato ogni volta che Excel ricalcola le formule
ed il suo effetto è visibile andando nel foglio “VINO” e modificando il nome del vino utilizzando i menù a tendina che ho predisposto (presenti nelle celle C2, F2, C9, F9,….. ,C44, F44).

A voi il file:
APRI

Riccardo Vincenti

The following two tabs change content below.

• Bio
• Ultimi Post

Riccardo Vincenti

Ultimi post di Riccardo Vincenti (vedi tutti)

• 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
• 072. Estrazione numeri casuali - 6 Ottobre 2017
• 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
• 070. Contare dati univoci senza Pivot - 21 Settembre 2017
• 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017

This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International