ho questo problema con una macro che aggiunge una serie ad un grafico:
la nuova serie è identificata con la data e vorrei utilizzasse il formato gg/mm/aaaa (come del resto impostato nel mio sistema e nella cella in cui la macro va ad attingere).
La creazione della nuova serie funziona ma nella legenda mi trovo il formato m/g/aaaa (se seleziono dati di origine trovo, nella lista delle serie, la dicitura corretta come la vorrei io e nella casella "Nome" solo il riferimento alla cella in cui il testo è scritto come lo vorrei).
La macro è questa:
- Codice: Seleziona tutto
Sub AggiungiSerie()
Dim nuovoX As String
Dim nuovoN As String
ActiveSheet.ChartObjects("Grafico 1").Activate
nomefoglio = ActiveSheet.Name
attuale = ActiveChart.SeriesCollection.Count
nuovoX = "=" & nomefoglio & "!R3C" & attuale + 3 & ":R38C" & attuale + 3
nuovoY = "=" & nomefoglio & "!R3C1:R38C1"
nuovoN = "=" & nomefoglio & "!R2C" & attuale + 3
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(attuale + 1).XValues = nuovoX
ActiveChart.SeriesCollection(attuale + 1).Values = nuovoY
ActiveChart.SeriesCollection(attuale + 1).Name = nuovoN
End Sub