La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
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.
