Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Datenbeschriftungen im Diagramm zuweisen

Betrifft: Datenbeschriftungen im Diagramm zuweisen von: Ron
Geschrieben am: 24.09.2014 23:50:00

Hallo liebes Forum,

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
Die Zuweisung der 2. Datenreihe klappt aber nicht. Habe das ganze dann auch mit den zugewiesenen Bezeichnungen der Datenreihen probiert - ebenfalls Fehlanzeige...
Kann jemand von Euch helfen und mir einen Schubs geben???

Danke

Ron

  

Betrifft: AW: Datenbeschriftungen im Diagramm zuweisen von: Ron
Geschrieben am: 25.09.2014 02:53:38

OK selber gefunden....
in den else Anweisungen habe ich "msoElementDataLabelBottum" statt richtig "msoElementDataLabelBottom" gesetzt.

Jetzt kann ich in die Falle.

Gute Nacht

Ron


 

Beiträge aus den Excel-Beispielen zum Thema "Datenbeschriftungen im Diagramm zuweisen"