Legendeneintrag loeschen
th.heinrich
habe folgenden Code in office-loesungen.de gefunden.
Sub LeerLegWeg()
Dim ch As Chart, i As Integer
On Error Resume Next
Sheets("DiagrammFT").Select
Set ch = Sheets("DiagrammFT")
ch.Unprotect password:=""
If ch.HasLegend = False Then Exit Sub
For i = 1 To ch.SeriesCollection.Count
If ch.SeriesCollection(i).Name = "" Then
ch.Legend.LegendEntries(i).Delete
'Exit Sub
End If
Next
ch.Protect password:=""
End Sub
funzzt auch insoweit, dass leere Eintraege geloescht werden. Nur klappt das Loeschen nicht in einem Rutsch, es muss mehrmals laufen um alle wegzubekommen.
Es handelt sich um ein x-y PUNKTDIAGRAMM mit je max. 7 Datenreihen.
thx fuer Hilfe
thomas