Buon pomeriggio a tutti
@by Sal
Come promesso, ecco una macro che "allinea" le DataLabels della serie Percentuali alla rispettiva colonna della serie Valori.
Dovrebbe funzionare con qualsiasi numero di Points() e, molto onestamente, non saprei come automatizzare il tutto. Cioè posso associare la macro ad un pulsante ma devo pur sempre pigiarlo!
Come si può farlo fare in automatico?
Sub AllineaLabels()
ActiveSheet.ChartObjects("Grafico 3").Activate
For i = 1 To ActiveChart.SeriesCollecti0n(2).Points.Count
ActiveChart.SeriesCollecti0n(2).Points(i).DataLabel.Select
ActiveChart.SeriesCollecti0n(2).Points(i).DataLabel.Top = ActiveChart.SeriesCollecti0n(1).Points(i).DataLabel.Top - 10
ActiveChart.SeriesCollecti0n(2).Points(i).DataLabel.Left = ActiveChart.SeriesCollecti0n(1).Points(i).DataLabel.Left - 5
Next i
Cells(1, 4).Select
End Sub
Ciao,
Mario