PDA

Vollständige Version anzeigen : Datenreihenbeschriftung in mehreren Diagrammen hinzufügen


pmneuling
05.07.2015, 13:52
Hallo zusammen!

Gerade sitze ich an einer Auswertung mit insgesamt 78 Diagrammen und benötige die Datenreihenbeschriftung in allen Diagrammen, für alle Balken.
Es scheint mir etwas umständlich das für jede Datenreihe mittels Rechtsklick und hinzufügen zu tun... :boah:

Gibt es eine schnellere Methode?

Vielen Dank, sommerliche Grüße und einen schönen Sonntag,
Kathrin

Beverly
05.07.2015, 14:59
Hi Kathrin,


Gibt es eine schnellere Methode?




Ja - benutze VBA.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

pmneuling
05.07.2015, 15:21
Hallo Karin,

okay, mittels Makro habe ich jetzt meinen VBA.

Sub Diagramm()
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.Axes(xlValue).Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.Axes(xlValue).MaximumScale = 0.7
ActiveChart.Axes(xlValue).MaximumScale = 1
Range("N27").Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
End Sub

Wie kann ich jetzt zum nächsten Diagramm "springen"?

Lieben Gruß

Beverly
05.07.2015, 16:27
Hi,

wenn alle Diagramm im selben Tabellenblatt liegen:

Sub Bechriftung()
Dim chrDia As ChartObject
Dim lngReihe As Long
For Each chrDia In ActiveSheet.ChartObjects
For lngReihe = 1 To chrDia.Chart.SeriesCollection.Count
chrDia.Chart.SeriesCollection(lngReihe).ApplyDataLabels
Next lngReihe
Next chrDia
End Sub


<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

pmneuling
13.07.2015, 21:04
Hallo Karin,

ich war eine paar Tage nicht online, daher erst jetzt vielen Dank für deine Hilfe!

Viele Grüße
Kathrin