Ciao alle amministrazioni, vorrei sapere se è possibile correggere questo tipo di errore, quando viene inserito un listato di codice con il Tag "Code", allego un esempio di codice, nel quale si verifica l'errore:
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
"FullSeriesCollection" diventa "FullSeriesCollecti0n" fatto anche la prova con il Tag Quote, anche con il tag Code-text, inserisco il codice con il tag Code-vb.
Ve ne sarei grato se sarebbe possibile risolvere il problema.
Saluti By Sal (8-D
www.freeforumzone.com/d/11534678/Grafico-Classifica-serieA/discussi...
[Modificato da by sal 30/08/2018 10:46]