Markierungslinienfarbe per VBA raus nehmen

Bild

Betrifft: Markierungslinienfarbe per VBA raus nehmen
von: Senseye
Geschrieben am: 22.09.2015 15:10:17

Hallo Leute,
habe folgendes Problem, sobald ich mit dem Makrorekorder den Code aufnehmen um die Markierungslinienfarbe weg zu bekommen, macht er mir die ganze Linie zwischen den Punkten weg, weiß leider nicht mehr weiter.
Hat da jemand von euch einen Rat?
Viele Grüße

Bild

Betrifft: Beziehst du dich...
von: Beverly
Geschrieben am: 23.09.2015 09:51:57
Hi,
...auf ein Diagramm? Meinst du die Rahmen der Markierungen? Wie sieht dein Code aus und dein Diagramm?




Bild

Betrifft: AW: Beziehst du dich...
von: Senseye
Geschrieben am: 24.09.2015 08:46:34
Hallo Karin,
mein Code sieht wie folgend aus

  • With Selection
    .MarkerStyle = 5
    .MarkerSize = 7
    End With
    Selection.MarkerStyle = -4115
    Selection.MarkerSize = 14
    With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(0, 0, 0)
    End With
    With Selection.Format.Line
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    End With
    With Selection.Format.Line
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    End With
    With Selection.Format.Line
    .Visible = msoTrue
    .DashStyle = msoLineDash
    End With
    With Selection.Format.Line
    .Visible = msoTrue
    .Weight = 1.75
    End With
    li>
    Es ist ein Säulendiagramm, bei dem eine Datenreihe als Linie dargestellt ist und zu jedem Wert eine Markierung ist. Die Markierung ist schwarz und die Linie zwischen den Markierungen ist rot gestrichelt, allerdings wenn ich mit dem Makrorekoder den Code aufnehmen, um die Umrandungen der Markierungen weg zu bekommen, verschwindet die ganze Linie.
    Viele Grüße

    Bild

    Betrifft: AW: Beziehst du dich...
    von: Beverly
    Geschrieben am: 24.09.2015 09:23:50
    Hi,
    die Markierungen kann man so formatieren:

        With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
            .MarkerStyle = -4115
            .MarkerSize = 14
            .MarkerForegroundColorIndex = xlNone
        End With
    



    Bild

    Betrifft: AW: Beziehst du dich...
    von: Senseye
    Geschrieben am: 24.09.2015 09:48:06
    Leider verändert sich nichts, habe trotzdem noch eine rote Umrandung :/
    Grüße

    Bild

    Betrifft: Ferndiagnosen sind...
    von: Beverly
    Geschrieben am: 24.09.2015 09:51:33
    ...immer schwierig, also lade deine Mappe hoch.




     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Markierungslinienfarbe per VBA raus nehmen"