Datenbeschriftungen im Diagramm zuweisen
24.09.2014 23:50:00
Ron
brauche wieder mal Eure Hilfe. In einem Tabellenblatt einer Arbeitsmappe werden in Abhängigkeit von div. Daten Diagramme gebildet. Um die Datenbeschriftungen auch automatisiert auszurichten, habe ich unter Zuhilfenahme des Makrorekorders folgendes Makro gebastelt:
Sub Beschriftung()
Worksheets("Hilfe").ChartObjects("Diagramm 1").Activate
If Worksheets("Hilfe").Cells(9, 10) = "Top" Then
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetElement (msoElementDataLabelTop)
ActiveChart.SeriesCollection(2).Select
ActiveChart.SetElement (msoElementDataLabelBottom)
Else
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetElement (msoElementDataLabelBottum)
ActiveChart.SeriesCollection(2).Select
ActiveChart.SetElement (msoElementDataLabelTop)
End If
End Sub
Kann jemand von Euch helfen und mir einen Schubs geben?
Danke
Ron
Anzeige