msoThemeColorText1
25.06.2017 14:41:10
Christian
kann mir jemand erklären, wofür diese Zeile im Code verantwortlich ist?
.ForeColor.ObjectThemeColor = msoThemeColorText1
Ich habe jetzt schon herausgefunden, das MsoThemeColorIndex-Wert eine Farbe aus einen Diagramm zurückgibt.
Ich habe ein Diagramm mit bis zu 16 Farben. Und einen Listenfilter mit dem ich einzelne Farben ausblenden kann indem ich die Zeilen in der Tabellen ausblende.
Sub Makro3()
'Die Farben aus der Legende pro MSN merken und im Diagramm dynamisch darstellen
ActiveSheet.ChartObjects("Diagramm 52").Activate
'Legende auswählen
ActiveChart.Legend.Select
'Legende Eintragsmarkierungen (MSN) ansprechen
ActiveChart.Legend.LegendEntries(1).Select
'Spricht alle Datenreihen an
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
'Keine Veränderung der verwendeten Farben im Diagramm
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Solid
End With
With Selection.Format.Fill
'Das Diagramm wird relativ zu seiner Originalgröße skaliert
.Visible = msoTrue
.ForeColor.RGB = RGB(23, 123, 205)
.Transparency = 0
.Solid
End With
End Sub
Christian
Anzeige