Ciao Mario, ma mi rivolgo a tutti gli interessati, mi sto bloccando, sono riuscito con le macro, sia a mettere l'ultima etichetta, che ad inserire l'ultimo indicatore.
Sono anche riuscito a recepire le posizioni delle etichette in base a "Top-Left", ora però in base al "Top" di ogni serie dovrei distanziarle per l'accavallamento.
sai che la classifica del calcio a volte è specialmente ad inizio campionato ci sono molte squadre a pari punti, quindi accavallate.
quindi dovrei sapere prima quante sono le squadre a pari punti, e spostare solo quelle che sono più di 1 che vuol dire accavallate, ma spostarle in modo tale che non vadano ad accavallare quelle sotto o sopra.
ma forse mi sto facendo io un falso problema.
Questa la macro che rileva la posizione dell'etichetta:
Sub posizione() 'rileva posizione dell'etichetta
Dim r, c, x, y, n, Posiz
ReDim Posiz(1 To 20, 1 To 2)
ActiveSheet.ChartObjects("Grafico 1").Select
ActiveChart.ChartArea.Select
For x = 1 To 20
ActiveChart.FullSeriesCollecti0n(x).DataLabels.Select
n = ActiveChart.FullSeriesCollecti0n(x).Points.Count
ActiveChart.FullSeriesCollecti0n(x).Points(n).DataLabel.Select
Posiz(x, 1) = Selection.Left
Posiz(x, 2) = Selection.Top
Next x
' ActiveChart.FullSeriesCollecti0n(1).DataLabels.Select
' ActiveChart.FullSeriesCollecti0n(1).Points(3).DataLabel.Select
' Selection.Left = 551.797
' Selection.Top = 47.94
End Sub
una volta che ho tutte le posizioni potrò spostare le etichette dove voglio, con il codice commentato.
Se blocchi la macro ad "End Sub" vedrai che la matrice "Posiz" ti riporta tutte le posizioni di ogni serie.
riusciresti a darmi un input, ma forse come ho detto mi sto facendo io un falso problema
ti allego il file di prova, l'immagine sarebbe del file definitivo.
non ho lanciato la tua macro per farti vedere il funzionamento, se funziona con il 2010, vedi sta tutto nel foglio2, è un grafico Pivot, puoi scegliere la visualizzazione, scegliendo una squadra dallo Slicer(filtro) di fianco, con control puoi selezionare più squadre
Ciao By Sal
P.S. NOTA "FullSeriesCollection" con lo 0zero alla "o"
[Modificato da by sal 30/08/2018 10:28]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui