Beschriftung im Punktdiagramm

Forumthread: Beschriftung im Punktdiagramm
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Beschriftung im Punktdiagramm

29.04.2006 13:05:25

Gregor

Hallo,
Ich kann ein Punktdiagramm erstellen, dass auf x- und y-Achse Zahlen annimmt (Koordinatensystem). In diesen zweidimensionalen Raum möchte ich nun zu wählende Alternativen einordnen. Wie kann ich diese Alternativen im Punktdiagramm automatisch beschriften lassen (z. B. A1, A2,...)?!?
Vielen Dank schon mal.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Beschriftung im Punktdiagramm

29.04.2006 14:22:05

Herbert

AW: Beschriftung im Punktdiagramm

29.04.2006 14:22:05

Herbert

hallo Gregor,
das geht mit VBA...

Option Explicit
Public Sub Datenpunkte_beschriften()
Dim i%
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
    .HasDataLabels = True
    For i = 1 To .Points.Count
        .Points(i).DataLabel.Text = Cells(i, 1)
    Next
End With
End Sub
Public Sub Datenpunktbeschriftung_ausblenden()
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1). _
ApplyDataLabels Type:=xlDataLabelsShowNone
End Sub