Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einzelne Linien in Diagramm über Makro hervorheben

Einzelne Linien in Diagramm über Makro hervorheben
10.02.2019 20:33:34
Steph
Hallo,
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!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Linien in Diagramm über Makro hervorheben
11.02.2019 09:35:29
Beverly
Hi Steph,
folgender Code hat bei mir (Excel2016) geholfen:
Sub ShowDatasets()
Dim Data
Dim i As Integer
Dim chrDia As Chart
Set chrDia = ActiveSheet.ChartObjects(1).Chart
For i = 1 To chrDia.SeriesCollection.Count
chrDia.SeriesCollection(i).Border.Weight = xlThick
chrDia.SeriesCollection(i).Border.Color = 16711680
Application.Wait Now + TimeValue("00:00:01")
DoEvents
DoEvents
Data = MsgBox("Intensity of spot" + Str(i) + "?", vbOK)
chrDia.SeriesCollection(i).Border.Color = 12632256
chrDia.SeriesCollection(i).Border.Weight = xlHairline
Next i
End Sub

Diagramm-Nr. musst du eventuell anpassen.


Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige