у меня макрорекордер записывает заливку оси.
в этом коде есть мой код и код макрорекордера.
я сделал градиентную заливку оси.
[vba]Код
Sub FillSecAxis()
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, xlSecondary).Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0.3399999738
.ForeColor.Brightness = 0
.BackColor.ObjectThemeColor = msoThemeColorAccent1
.BackColor.TintAndShade = 0.7649999857
.BackColor.Brightness = 0
.TwoColorGradient msoGradientHorizontal, 1
End With
End Sub
[/vba]