Classifica con immagini
Ciao ecco la mia soluzione, ma devi inserire le immagini mancanti.
L'unica cosa che crea un evento sul foglio, e il punteggio assegnato per le varie gare, quindi ogni volta che inserisci un punteggio viene aggiornata la classifica.
ma nello stesso tempo aggiorna anche tutte le immagini.
le immagini si riferiscono al foglio "Campionato" alle celle "C2:C21" e le celle "A26:A35", cioè le immagini devono avere come NOME quello che e scritto nelle relative celle.
il fulcro di tutto è questa macro, che ha bisogno di parametri per funzionare, ma gli vengono dati dalla macro dell'evento "Change" del foglio "Campionato"
Public Sub Pict(r, c, Crt, s, est)
Dim kk, L, T, H, W, fg, ind, sPath, zShp, zImg, hh, tt As Boolean, sh1 As Worksheet
fg = ActiveSheet.Name
hh = Crt
'est = "Png"
Set sh1 = Worksheets(fg)
sh1.Activate
Application.ScreenUpdating = False
Application.EnableEvents = False
Cells(r, c + s).Select
L = Cells(r, c + s).Left: T = Cells(r, c + s).Top: W = Cells(r, c + s).Width: H = Cells(r, c + s).Height
zImg = dd
sPath = ActiveWorkbook.Path & "\" & hh & "\" & zImg & "." & est
If Dir(sPath) = "" Then sPath = ActiveWorkbook.Path & "\" & hh & "\" & "Manca" & ".Png"
ind = "Pict" & Replace(Cells(r, c + s).Address, "$", "")
tt = False
For Each kk In sh1.Shapes
If kk.Name = ind Then kk.Delete
Next kk
If zImg = "" Then GoTo 1
Cells(r, c + s).Select
sh1.Pictures.Insert(sPath).Select
Selection.Name = ind
Set zShp = ActiveSheet.Shapes(ind)
zShp.Select
zShp.LockAspectRatio = msoFalse
zShp.Top = T: zShp.Left = L: zShp.Width = W: zShp.Height = H
sh1.Cells(r, c).Select
1 Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
che in effetti l'immagine viene nominata con l'indirizzo della cella, quindi prima viene cancellata e poi inserita con la nuova immagine, prendendola dall'archivio immagini che ho chiamato "Marchi" ma poteva essere un nome qualsiasi.
nella cartella marchi ci sono tutte le immagini che hai postato, più altre due che avevo, e che comunque stanno nella sottocartella "Vecchi" che puoi eliminare.
non importa dove metti il file basta che siano insieme nello stesso posto.
il foglio "Immagini" puoi anche eliminarlo, non serve più.
dove manca l'immagine esce la scritta "Manca Immagine", l'immagine si autodimensiona in base alla dimensione della cella che deve contenerla.
se ci sono problemi scrivi.
il file è compresso con .Rar
Ciao By Sal
P.S. per Giuseppe gli ho inviato un FFZ