Ciao xegallo, scusami ma non riesco farlo funzionare, ho inserito in VB il modulo qui sotto per provare:

Sub aggiorna_immagine(percent As Integer)
Select Case percent
Case Is < 10
ActiveSheet.Shapes("tino").Select
Selection.Cut
Range("D4").Select
ActiveSheet.Paste
Case Is < 20
ActiveSheet.Shapes("tino10").Select
Selection.Cut
Range("D4").Select
ActiveSheet.Paste

Nel foglio excel ho una cella con il valore in percentuale e ora che operazioni devo fare?
ciao e grazie
bracos