VBA Изменить цвет линии

Question

Просто хочу изменить цвет линий столбцов E и B, это мой код:

Sub HistoricalProdUnitAndDemand()
' Creates a line chart for the demand column

    Worksheets("DATA").Activate

    ' Doesn't work because it is looking for a Worksheet not a SHEET WTF
    For Each Ws In Sheets
        If Ws.Name = "Production VS Demand" Then
            Application.DisplayAlerts = False
            Sheets("Production VS Demand").Delete
            Application.DisplayAlerts = True
            Exit For
        End If
    Next

    Columns("A:A").Select
    Selection.NumberFormat = "[$-en-US]mmm-yy;@"
    ' This formats column A to be in the proper date format of mmm-yy

    Range("A:A,E:E,B:B").Select
    ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
    ActiveChart.SetSourceData Source:=Range("A:A,E:E,B:B")
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Production VS Demand"
    ' Places line chart in a new worksheet called Production VS Demand
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.Orientation = 70
    Selection.MajorTickMark = xlNone
    ActiveChart.ChartTitle.Select
    ActiveChart.ChartTitle.Text = "Production VS Demand"
    ' Adds in the chart's title
    ActiveChart.SetElement (msoElementLegendRight)
    ' Adds in the chart's legend to the right
    Selection.Format.TextFrame2.TextRange.Characters.Text = "Production VS Demand"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 20).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    ActiveChart.ChartArea.Select
    End Sub

Answer 1

Вы можете создать это:

Sub setColor(HexColors As Long)
  Range("E").Interior.Color = HexColors 
  Range("B").Interior.Color = HexColors
end sub

Затем вы можете поместить строку в свой Sub HistoricalProdUnitAndDemand (), как показано ниже:

HistoricalProdUnitAndDemand()
  [...]
  setColor 49407
  [...]
end sub

Вы можете посмотреть на inte rnet чтобы узнать свои шестнадцатеричные цвета (49407 для "Золотисто-желтого" или чего-то в этом роде)

До свидания и хорошего дня,