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