Nell' ipotesi che il nome dell' immagine da inserire corrisponda a quanto scritto in G6, S6, G16, etc etc, scartando il numero iniziale:
-Inserisci nel tuo foglio 12 controlli Immagine; man mano che li inserisci rinominali come "Imm_G6", "Imm_S6", etc
-tasto dx sul tab col nome foglio Scout, scegli Visualizza codice
-copia questo codice nel frame di dx:
- Codice: Seleziona tutto
Private Sub Worksheet_Activate()
myDir = "C:\Users\Utente\Documents\FotoPippo\" '<<< Con "\" finale
Imm_G6.PictureSizeMode = fmPictureSizeModeZoom
Imm_G6.Picture = LoadPicture(myDir & Trim(Mid(Range("G6").Value, 3, 999)) & ".jpg")
Imm_G6.Width = 100
Imm_G6.Height = 60
Imm_S6.PictureSizeMode = fmPictureSizeModeZoom
Imm_S6.Picture = LoadPicture(myDir & Trim(Mid(Range("S6").Value, 3, 999)) & ".jpg")
Imm_S6.Width = 100
Imm_S6.Height = 60
'...RIPETI PER LE ALTRE IMMAGINI
End Sub
Personalizza l' istruzione marcata <<<
Le istruzioni .Width e . Height sono opzionali, ma potrebero servire se le immagini di partenza fossero non "miniature".
Tutte le volte che entri nel foglio Scout le immagini saranno aggiornate secondo il contenuto delle celle indicate.
Ciao