ho risolto inserendo un controllo immagine ed inserente il seguente codice
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = "P50" Then
Select Case Range("P50")
Case 0 To 9
ph = "0.jpg"
Case 10 To 19
ph = "10.jpg"
Case 20 To 29
ph = "20.jpg"
Case 30 To 39
ph = "30.jpg"
Case 40 To 49
ph = "40.jpg"
Case 50 To 59
ph = "50.jpg"
Case 60 To 69
ph = "60.jpg"
Case 70 To 79
ph = "70.jpg"
Case 80 To 89
ph = "80.jpg"
Case 90 To 99
ph = "90.jpg"
End Select
Perc = "L:\Documenti\esempio\"
ActiveSheet.Image1.Picture = LoadPicture(Perc & ph)
End If
End Sub
ho ancora un problema cioe se digito direttamente un valore numerico nella cella P50 le immagini vengono iserite se invece il valore alla cella viene attribuito da una formula le immagini non vengono visualizzate
mi potete aiutare?
grazie