Einzelne Linien in Diagramm über Makro hervorheben
10.02.2019 20:33:34
Steph
ich habe ein Liniendiagramm mit mehreren Datenreihen, die ich gerne zur Analyse einzeln mit Hilfe eines Makros durchklicken möchte. Dabei sollte das Makro mit einer kurzen Abfrage bei Datensatz 1 starten, dabei diesen fett hervorheben und bei OK zum nächsten Datensatz springen, wobei nun dieser hervorgehoben werden soll. Dazu habe ich folgenden Code:
Sub ShowDatasets()
Dim ToDelete(255) As Boolean
For i = 1 To 255
ToDelete(i) = False
Next i
For i = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(i).Border.ColorIndex = 5
ActiveChart.SeriesCollection(i).Border.Weight = xlThick
Data = MsgBox("Intensity of spot" + Str(i) + "?", vbOK)
ActiveChart.SeriesCollection(i).Border.Weight = xlHairline
ActiveChart.SeriesCollection(i).Border.ColorIndex = 15
Next i
End Sub
In einer früheren Excelversion (ich denke, das war 2003) hat das recht gut geklappt, leider funktioniert ich in meiner jetzigen Version das Hervorheben nicht mehr. Wenn ich das Makro jedoch abbreche, ist interessanterweise der letzte abgefragte Datensatz doch hervorgehoben.
Gibt es dazu eine Lösung oder eine bessere Alternative?
Vielen Dank!
Anzeige