Excel + VBA: etykiety na wykresie

[acp___]

arkusz "Dane::

kolumna A - etykiety

kolumna B - wartości X

kolumna C - wartości Y

 

arkusz "Wykres"

 

Sub AttachLabelsToPoints()   'Dimension variables.   Dim Counter As Integer   ' Disable screen updating while the subroutine is run.   Application.ScreenUpdating = False   'Attach a label to each data point in the chart.   For Counter = 1 To Range("A2:A45").Cells.Count    ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _    True      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _         Range("A2:A45").Cells(Counter, 1).Offset(0, -1).Value   Next CounterEnd Sub

makro uruchamiam na arkuszu wykresu i nie działa, co robię źle?

 

na PW e-mail jak ktoś chce odemnie ten arkusz

Edytowane 23 Grudnia 2011 przez acp___

[acp___]

Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - etykiety na wykresie z zakresu komórek - forum excela, porady excel