Salve a tutti
@by Sal - Ottimo lavoro
Vorrei suggerire un'altra possibilità.
Nel Foglio1 (quello coi dati, ma si potrebbe fare anche in un altro foglio) ho aggiunto i 6 grafici da rappresentare; prima quello con tutte le serie e poi quello con solo la serie1, la serie2 ecc.
Quindi una convalida dati (invece del combo) nella cella I3 a cui fa riferimento questo codice
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I3")) Is Nothing Then
Select Case Target
Case "tutti"
cht = 1
Case "serie1"
cht = 2
Case "serie2"
cht = 3
Case "serie3"
cht = 4
Case "serie4"
cht = 5
Case "serie5"
cht = 6
End Select
With ActiveSheet
For i = 1 To 6
.ChartObjects(i).Visible = False
Next i
.ChartObjects(cht).Visible = True
End With
End If
End Sub
Prova e vedi se ti viene più semplice.
Ciao,
Mario