title image


Smiley Re: Beschriftung von Datenpunkten in Diagrammen
Hallo,



hier 2 Makros zum Ein- und Ausschalten von Datenpunktbeschriftungen. Die Beschriftungen stehen 2 Zeilen unter den Werten.



Sub DatenbeschriftungAusZellen()

Dim Datenreihe As Series

Dim Punkte As Points

Dim Punkt As Point

Dim i As Integer



Set Datenreihe = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)

Datenreihe.HasDataLabels = True

Set Punkte = Datenreihe.Points

Range("A6").Select

For Each Punkt In Punkte

i = i + 1

Punkt.DataLabel.Text = ActiveCell.Offset(0, i).Value

Punkt.DataLabel.Font.Bold = True

Next Punkt



End Sub





Sub DatenbeschriftungLöschen()

ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).HasDataLabels = False

End Sub



Sollte noch etwas unklar sein, kann ich Dir eine Musterdatei zuschicken.
Gruß aus dem Land der Bayern Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: