День добрый.
Бьюсь уже который час, никак не пойму, в чем причина.
Делаю следующее: строю диаграмму (простой линейный график с маркерами).
По умолчанию Excel делает очень жирную линию. Я хочу сделать ее тонкой, изменить цвет, изменить тип и размер маркера, и убрать линию обводки вокруг маркера.
Записал рекордером действия, вот что получилось.
Ок, рисую кнопку, запускаю макрос, бац - линий на диаграмме нет, только маркеры. Логично, если последним действием убираем видимость линий.
Но у маркера нет свойства Line, которое можно было бы менять. Есть только BackgroundColor и ForegroundColor.
И как так?
Какое свойство менять у маркера, чтобы линий обводки у него не было?
Можно ли поменять это свойство сразу по всему ряду, или бегать по всем точкам для этого?
Бьюсь уже который час, никак не пойму, в чем причина.
Делаю следующее: строю диаграмму (простой линейный график с маркерами).
По умолчанию Excel делает очень жирную линию. Я хочу сделать ее тонкой, изменить цвет, изменить тип и размер маркера, и убрать линию обводки вокруг маркера.
Записал рекордером действия, вот что получилось.
Код |
---|
Sub Макрос9() Range("A3").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Range("Лист1!$A$2:$E$3") ActiveChart.PlotBy = xlRows ActiveChart.SeriesCollection(1).Select Selection.MarkerStyle = 8 Selection.MarkerSize = 5 With Selection.Format.Line .Visible = msoTrue .Weight = 1 .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 End With Selection.Format.Line.Visible = msoFalse ActiveChart.Axes(xlValue).MajorGridlines.Select Selection.Delete End Sub |
Ок, рисую кнопку, запускаю макрос, бац - линий на диаграмме нет, только маркеры. Логично, если последним действием убираем видимость линий.
Но у маркера нет свойства Line, которое можно было бы менять. Есть только BackgroundColor и ForegroundColor.
И как так?
Какое свойство менять у маркера, чтобы линий обводки у него не было?
Можно ли поменять это свойство сразу по всему ряду, или бегать по всем точкам для этого?
F1 творит чудеса