[Risolto] Indicatore di risultato

@marius44

No no, nessun abbaglio, ora funziona benissimo, sono io che non avevo compreso del tutto la questione del cambiamento "fisico", ora devo trovare un sistema obbligatorio per questo evento perchè anche le "X" che nell'esempio sono da scivere a manina, nella realtà sono calcolate attraverso una seria di altri dati, si potrebbe aggiungere un bottone per l'aggiornamento del grafico?

Grazie mille.

Ciao

Inserisci in ogni foglio un Pulsante Modulo (non ActiveX) ed assegna a ciascun pulsante questa macro

Sub Pulsante()
    ActiveSheet.ChartObjects(1).Activate
    With ActiveChart.SeriesCollection(1)
      Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
      For i = 1 To vAddress.Cells.Count
        If Cells(i, 2) = "" Then Exit For
        .Points(i).Format.Fill.ForeColor.RGB = Cells(i + 1, 2).DisplayFormat.Interior.Color
      Next i
    End With
    'centro media
    If ActiveSheet.Name = "1 orizzontale" Then centro = "Oval 1"
    If ActiveSheet.Name = "1 verticale" Then centro = "Oval 2"
    ActiveSheet.Shapes.Range(Array(centro)).Select
    With Selection.ShapeRange.Fill
      .Visible = msoTrue
      .ForeColor.RGB = Cells(2, 3).DisplayFormat.Interior.Color
      .Transparency = 0
      .Solid
    End With
    Cells(1, 1).Select
  
End Sub

Fai attenzione a questa riga nella quale devi inserire il giusto nome dell'immagine che costituisce il centro

If ActiveSheet.Name = "1 orizzontale" Then centro = "Oval 1" 

Devi adattare il nome del Foglio e quello del centro di ogni foglio.

Fai sapere. Ciao,

Mario

PS - Io li ho lasciati (ho inserito Exit Sub all'inizio) ma le due macro dell'Evento dei Fogli puoi toglierle.

@marius44 buongiorno,

in allegato il risultato, ottimo dal mio punto di vista. Ancora Grazie.

Ciao

 se hai risolto leggi qui

Ciao,

Mario