Thema Datum  Von Nutzer Rating
Antwort
Rot Farbe von Legendeneintrag eines Diagramms ändern
08.05.2019 13:38:16 bruzzly
NotSolved
08.05.2019 14:48:06 Mackie
NotSolved
08.05.2019 17:26:12 bruzzly
NotSolved
08.05.2019 18:44:28 Gast45806
Solved

Ansicht des Beitrags:
Von:
bruzzly
Datum:
08.05.2019 13:38:16
Views:
879
Rating: Antwort:
  Ja
Thema:
Farbe von Legendeneintrag eines Diagramms ändern

Hallo liebe Leute,

mein Makro funktioniert zum größten Teil schon. Folgendes klappt nicht:

Zuerst wird das Diagramm 1 skaliert, das funktioniert noch:

    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveSheet.Shapes("Diagramm 1").ScaleWidth 2, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Diagramm 1").ScaleHeight 2, msoFalse, _
        msoScaleFromTopLeft

Gleich anschließend soll die Farbe des ersten Legendeneintrags geändert werden:

    With ActiveSheet.ChartObjects("Diagramm 1").Chart.Legend
        
       With .LegendEntries(1).Format.Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 0, 0)
            .Transparency = 0
        End With

    End With

Doch leider erscheint folgende Fehlermeldung:

"Die Methode 'Line' für das Objekt 'ChartFormat' ist fehlgeschlagen"

Führe ich die Farbänderung manuell durch, erscheint beim ersten mal immer ein Kastl mit folgendem Hinweis:

"Die Anzeige der komplexen Formartierung, die auf die ausgewählte Tabelle angewendet wurde, kann einige Zeit in Anspruch nehmen. Möchten Sie die Verwendung der Formatierung fortsetzen? - Ja/Nein"

Ich nehme an die Frage rührt daher, dass das Dokument "relativ" groß ist und dieser Schritt daher viel Rechenzeit in Anspruch nimmt. Ich beantworte jedenfalls mit "Ja" und dann führt er den Schritt aus.

Führe ich weitere Farbänderungen mit diesem oder einem anderen Legendeneintrag aus, erscheint dieses Hinweiskastl nichtmehr. Deswegen war meine Therorie, dass das Makro intern ebenfalls auf diesen Hinweiß stößt, damit überfordert ist, abbricht und die oben erwähnte Fehlermeldung ausgibt. Leider scheint meine Theorie nicht zu stimmen, da die Ausführung des Makros auch dann fehlschlägt, wenn ich zuvor schon eine manuelle Farbänderung vorgenommen (und das Hinweiskastl mit "Ja" beantwortet) hab.

Kann mir jemand weiterhelfen?

Gruß,
Martin

Hier ist der gesamte Code angehängt falls es was bringt:

Sub Makro_Diagramm()
'
' Makro_Diagramm Makro
'
' Tastenkombination: Strg+Umschalt+D
'
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    
    Range("A1").Select
    ActiveCell.Value = "Time in sec"
    Range("B1").Select
    ActiveCell.Value = "Time dissection"
    Range("A2").Select
    ActiveCell.Value = "=B2/1000"
    Range("B2").Select
    ActiveCell.Value = "=0"
    Range("A3").Select
    ActiveCell.Value = "=B3/1000"
    Range("B3").Select
    ActiveCell.FormulaLocal = "=LINKS(C3;2)*3600000+TEIL(C3;4;2)*60000+TEIL(C3;7;2)*1000+RECHTS(C3;3)-(LINKS(C2;2)*3600000+TEIL(C2;4;2)*60000+TEIL(C2;7;2)*1000+RECHTS(C2;3))+B2"
    
    LastRow = ActiveSheet.UsedRange.Rows.Count
  
    Range("A3:B3").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A3:B" & LastRow)
    
    If Range("R1").Value = "L1_AI (V)" Then
        Range("A:A,D:D,I:I,R:R,S:S,T:T,U:U").Select
        Range("U1").Activate
    ElseIf Range("S1").Value = "L1_AI (V)" Then
        Range("A:A,D:D,I:I,S:S,T:T,U:U,V:V").Select
        Range("V1").Activate
    End If
    
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select
    
    'ActiveChart.SetSourceData Source:=Range( _
     '   "AktiveSheet.Name!$A:$A,AktiveSheet.Name!$D:$D,AktiveSheet.Name!$I:$I,AktiveSheet.Name!$R:$R,AktiveSheet.Name!$S:$S,AktiveSheet.Name!$T:$T,AktiveSheet.Name!$U:$U" _
       ' )
        
    ActiveChart.Parent.Cut
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveSheet.Shapes("Diagramm 1").ScaleWidth 2, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Diagramm 1").ScaleHeight 2, msoFalse, _
        msoScaleFromTopLeft
   

'    With ActiveSheet.ChartObjects("Diagramm 1").Chart.Legend
'        With .LegendEntries(1).Format.Line
'            .Visible = msoTrue
'            .ForeColor.RGB = RGB(255, 0, 0)
'            .Transparency = 0
'        End With
'
'        With .LegendEntries(2).Format.Line
'            .Visible = msoTrue
'            .ForeColor.RGB = RGB(255, 0, 255)
'            .Transparency = 0
'        End With
'
'        With .LegendEntries(3).Format.Line
'            .Visible = msoTrue
'            .ForeColor.ObjectThemeColor = msoThemeColorText1
'            .ForeColor.TintAndShade = 0
'            .ForeColor.Brightness = 0
'            .Transparency = 0
'        End With
'    End With
    
    
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Farbe von Legendeneintrag eines Diagramms ändern
08.05.2019 13:38:16 bruzzly
NotSolved
08.05.2019 14:48:06 Mackie
NotSolved
08.05.2019 17:26:12 bruzzly
NotSolved
08.05.2019 18:44:28 Gast45806
Solved