Bubble-Charts Datenbeschriftung
10.11.2004 08:03:28
René
Ich habe den Code für die Datenbeschriftung von
Bubble-Charts in meine Excel-Tabelle übernommen.
Nun erscheint wenn ich den Button in der Tabelle
PF9M klikcke folgende Fehlermeldung.
Die DatenLabel-Eigenschaft des Piont-Objekts kann
nicht zugeordnet werden.
Hier den Code den ich angefügt habe:
Sub DatenbeschriftungAusZellen()
Dim ch As Chart
Dim sc As Series
Dim scc As Integer
Dim s As Integer
Dim i As Integer
ActiveSheet.Unprotect
i = 8
Set ch = ActiveSheet.ChartObjects(1).Chart
scc = ch.SeriesCollection.Count
For s = 1 To scc
Set sc = ch.SeriesCollection(s)
sc.HasDataLabels = True
i = i + 1
sc.Points(1).DataLabel.Text = Cells(4, i).Value
sc.Points(1).DataLabel.Font.Bold = True
Next
ActiveSheet.Protect
End
Sub
Ich habe als Zip-Datei die Excel-Datei angefügt.
Vielen Dank für die Hilfe und Unterstützung.
Beste Grüsse
René
Anzeige