Colore riga colore riga/indicatore VBA di Excel

Question

Sto scrivendo del codice VBA per modificare i grafici di Excel. Per un grafico a dispersione è necessario modificare il colore della linea di riferimento e talvolta il colore della linea delle linee di collegamento. Posso fare entrambe le cose manualmente ma quando registro una Macro, entrambe le azioni danno lo stesso codice nonostante i risultati siano molto diversi.

Qualche idea su come distinguere tra un colore di linea e un colore di linea di riferimento nel codice?

Questo codice è stato creato quando ho registrato io stesso cambiando colore delle linee marcatore

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 

Questo codice è stato creato quando ho registrato io stesso cambiare il colore della linea che collega i marcatori

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 

Answer 1

Il il colore della linea delle linee di connessione è Series.Format.Line.ForeColor. Il colore della linea dell'indicatore è Series.MarkerForegroundColor. Ma almeno con Excel 2007 c'è un problema con l'impostazione Series.Format.Line.ForeColor. Guarda l'esempio:

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 

L'ActiveChart è un grafico a dispersione. E questo è testato con Excel 2007.

Answer 2

da Excel 2013, il colore della linea e il colore della linea marcatore sono facili da distinguere, come il colore della linea viene impostato utilizzando la proprietà.Border, mentre i colori vengono impostati utilizzando marcatori .MarkerBackgroundColor e .MarkerForegroundColor proprietà.

Così il seguente vi darà indici bianchi, con un bordo rosso e linee di connessione nere tra loro:

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: Se si fanno uso di Selection.Format.Line.Weight, notare che questo vale per entrambi i confini e che collega lo spessore della linea di default

Answer 3

Si potrebbe utilizzare

ActiveChart.SeriesCollection (1) .MarkerForegroundColor = -2