Skocz do zawartości
acp___

Excel + VBA: etykiety na wykresie

Rekomendowane odpowiedzi

arkusz "Dane::

kolumna A - etykiety

kolumna B - wartości X

kolumna C - wartości Y

Dołączona grafika

 

arkusz "Wykres"

Dołączona grafika

 

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 przez acp___

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie


×
×
  • Dodaj nową pozycję...