VBA Diagrammlegende Ein/Ausblenden

[Ruil Gaga]

Hallo,

ich versuche im "DiagrammA" die Datenlegende ein- und auszublenden, leider ohne Erfolg.
Das Statement scheint falsch zu sein, sodass er immer wieder auf das "Else" springt und die 2. Möglichkeit ausführt.
Kann das eventuell jemand korrigieren?

Sub DatenbeschriftungSteuerung()
    Sheets("Diagramm").ChartObjects("DiagrammA").Activate
    If msoElementDataLabelCallout = True Then
    ActiveChart.SetElement (msoElementDataLabelNone)
    Else: ActiveChart.SetElement (msoElementDataLabelCallout)
End If
End Sub

Beste Grüße

[schauan]

Hallöchen,

hier stecken zwei funktionierende Varianten drin

Code:

Sub makro2()
ActiveSheet.ChartObjects("Diagramm 1").Chart.SeriesCollection(1).HasDataLabels = Not _
ActiveSheet.ChartObjects("Diagramm 1").Chart.SeriesCollection(1).HasDataLabels
If ActiveSheet.ChartObjects("Diagramm 1").Chart.SeriesCollection(1).HasDataLabels Then
ActiveSheet.ChartObjects("Diagramm 1").Chart.SetElement (msoElementDataLabelNone)
Else
ActiveSheet.ChartObjects("Diagramm 1").Chart.SetElement (msoElementDataLabelCallout)
End If
End Sub