Excel-VBA-Line Farbe / Markierung Farbe

Schreibe ich VBA-code zum ändern von Excel-charts. Für ein XY-Diagramm, die ich brauche zum ändern der marker-Zeile die Farbe und manchmal die Linie die Farbe der Verbindungslinien. Ich kann sowohl manuell, aber wenn ich ein Makro aufzeichnen, werden beide Aktionen in der gleichen code-trotz der Ergebnisse sehr unterschiedlich ist.

Eine Idee, wie man unterscheiden zwischen einer Linie und Farbe eine Markierung mit Farbe im code?

Dieser code erstellt wurde, wenn die, die ich aufgezeichnet mich selbst ändern die Farbe der markerlinien

Sub Macro3()
'

    ' Macro3 Macro
    '
    '
        ActiveChart.SeriesCollection(2).Select
        With Selection.Format.Line
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0
        End With
    End Sub

Dieser code erstellt wurde, wenn die, die ich aufgezeichnet mich selbst ändern die Farbe der Linie zwischen den Markierungen

Sub Macro4()
'
' Macro4 Macro
'
'
'Change the Line Color
    ActiveChart.SeriesCollection(2).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
End Sub
Dies ist ein Manko im Objekt-Modell für die charts. Mit Hilfe der .Format.Line syntax gilt die gleiche Formatierung, Markierung und der Verbindungslinie. Mit .Grenze gilt die Farbe der Verbindungslinie und .MarkerForegroundColor der marker-Zeile.

InformationsquelleAutor Bob Smith | 2015-04-16

  1. 15

    Der Linie Farbe der Verbindungslinien ist Series.Format.Line.ForeColor. Die Markierung ist in der Farbe Series.MarkerForegroundColor. Aber zumindest bei Excel 2007 gibt es ein problem mit der Einstellung Series.Format.Line.ForeColor. Siehe Beispiel:

    Sub Macro3()
 Dim oChart As Chart
 Dim oSeries As Series

 Set oChart = ActiveChart
 Set oSeries = oChart.SeriesCollection(2)

 oSeries.Format.Line.Weight = 5 'Line.Weigth works ever

 oSeries.Format.Line.Visible = msoFalse 'for Line.ForeColor getting to work we have to cheat something
 oSeries.Format.Line.Visible = msoTrue
 oSeries.Format.Line.ForeColor.RGB = RGB(0, 255, 0) 'now it works

 oSeries.MarkerSize = 15
 oSeries.MarkerBackgroundColor = RGB(255, 0, 0) 'marker background

 oSeries.MarkerForegroundColor = RGB(0, 0, 255) 'marker foreground (lines around)
End Sub

    Dem ActiveChart ist ein scatter-Diagramm. Und das ist getestet mit Excel 2007.

    Vielen Dank für die Antworten. @Axel, dein vorgeschlagener trick arbeitete für mich auch. Danke.
    Ich danke Euch so sehr aus tiefstem Herzen für den hack .Linie.Sichtbar. Ich hatte die erste Serie in einer Sammlung zeigt nicht die Zeile (in Excel 2010). Hinzufügen msoFalse, bevor msoTrue hat den trick!
    Von Excel 2013 die Linie zwischen den Markierungen ist offenbar eingestellt .Border-Eigenschaft. Hat mich eine Stunde versuchen, Eure Ratschläge, bevor ich merkte, was geschah!

    InformationsquelleAutor Axel Richter

  2. 3

    Von Excel 2013, die Linie, Farbe und die marker-Zeile Farbe sind leicht zu unterscheiden, wie die Linienfarbe wird festgelegt, über das .Grenze Eigenschaft, während die Marker-Farben mit .MarkerBackgroundColor und .MarkerForegroundColor Eigenschaften.

    Also Folgendes geben Sie die weißen Markierungen, mit einem roten Rand und schwarzen Verbindungslinien zwischen Ihnen:

    ActiveChart.SeriesCollection(1).Select
With Selection
    .Border.LineStyle = xlContinuous
    .Border.Color = RGB(0,0,0)
    .MarkerBackgroundColor = RGB(255, 255, 255)
    .MarkerForegroundColor = RGB(255, 0, 0)
End With

    NB: Wenn Sie Auswahl.Format.Linie.Gewicht, beachten Sie, dies gilt sowohl für die Grenzen und die Verbindung Linienstärke, die standardmäßig

    .Border, .MarkerBackgroundColor, und .MarkerForegroundColor sind die legacy-bits der alten Excel 97-2003-Objekt-Modell. Sie sollen ersetzt werden durch LineFormat und FillFormat, aber diese waren unvollständig implementiert in Office 2007 und in Office 2016 noch nicht behoben worden.
    "während"? Wie wärs mit "während"?
    Zwar ist Brittish und da Englisch ist Ihre Erfindung...

    InformationsquelleAutor Steve Taylor

  3. 0

    Könnten Sie

    ActiveChart.SeriesCollection(1).MarkerForegroundColor = -2

    InformationsquelleAutor Pramod Ghag

Schreibe einen Kommentar