VBA изменить цвет линии, чтобы быть таким же, как пунктирная линия - PullRequest
0 голосов
/ 03 марта 2020

Попытка изменить строку моих полных серий sourcedata rangey3.Мне хотелось бы, чтобы rangeInvNorm был обычной solid строкой, а rangeInvFore - пунктирным. 1004 *

безрезультатно, но оно работает для прогнозируемых значений.

Мой код:

Set rangexMonth = Worksheets("DATA").Range(Cells(lRow - 14, 1), Cells(lRow, 1))
' Inventory
Set rangeInvNorm = Worksheets("DATA").Range(Cells(lRow - 3, 7), Cells(lRow - 14, 7))
' Inventory Forecast
Set rangeInvFore = Worksheets("DATA").Range(Cells(lRow - 14, 12), Cells(lRow, 12))


Sheets("Report").Activate
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
With ActiveChart
    .SetSourceData Source:=rangeInvNorm
    .FullSeriesCollection(1).Name = "Inventory"
    .SeriesCollection(1).XValues = rangexMonth
    .SeriesCollection.NewSeries
    .SetElement (msoElementLegendBottom)
    .ChartTitle.Delete

With .SeriesCollection(2)
    .Name = "Inventory (Forecast)"
    .Values = rangeInvFore
    .Format.Line.Visible = msoTrue
    .Format.Line.DashStyle = msoLineSysDot
    .Format.Line.ForeColor.RGB = RGB(0, 189, 69)
    .MarkerBackgroundColor = RGB(0, 189, 69)
End With

Я пытаюсь сделать синюю линию того же цвета, что и пунктирная линия:

https://imgur.com/a/KjjoKq1

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...