Grafik Beschriftung (Typ = Blase)
08.06.2007 13:27:00
Thomas
Ich benötige mal wieder eure hilfe.
Es geht um eine Grafik (Blase) in welcher ich die Elemente beschriften möchte / muss. Aus diesem Grund habe ich mir einen Code aus der MS Knowledge Base gesucht und eingebaut (siehe unten anbei).
Dies funktioniert bei der Gesamtdarstellung auch einwandfrei. Sobald man aber bei den Daten einen Filter setzt wird die Beschriftung fehlerhaft. z.B.: Ich wähle die Zeile 27 per Filter aus, dann erhält dieser Bubble in der Grafik die Beschriftung der ersten Zeile.
Könnt ihr mir helfen den Code umzuschreiben ?
Vielen Dank für eure Hilfe
Thomas H.
Private Sub Beschriftung()
'Dimension variables.
Dim Counter As Integer, ChartName As String, xVals As String
' Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False
'Store the formula for the first series in "xVals".
xVals = ActiveChart.SeriesCollection(1).Formula
'Extract the range for the data from xVals.
xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, Mid(Left(xVals, InStr(xVals, "!") - 1), _
9)))
xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop
'Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = Range(xVals).Cells( _
Counter, 1).Offset(0, -34).Value
Next Counter
End Sub