Moderatori: Anthony47, Flash30005
Sub Modifica_Grafico_A()
Sheets("Foglio1").Select ' <<==== Qui va il nome del tuo Foglio
Range("D2").Select
UR = Range("D" & Rows.Count).End(xlUp).Row
ActiveSheet.ChartObjects("Grafico 1").Activate ' <<=== Qui va il nome del tuo Grafico
ActiveChart.SeriesCollection(1).XValues = "=Foglio1!R2C4:R" & UR & "C4"
ActiveChart.SeriesCollection(1).Values = "=Foglio1!R2C5:R" & UR & "C5"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
Range("D2").Select
End Sub
.ChartTitle.Characters.Text = Sheets("Foglio1").Range("Y9")
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 7 ospiti