Чтобы добавить заливку под графиком в Excel, следуйте этим шагам:
1. Создайте график, который вы хотите заполнить.
2. Выделите область под графиком, которую вы хотите заполнить.
3. Перейдите на вкладку "Заливка" в меню "Формат" и выберите желаемый стиль заливки.
Если вы хотите добавить штриховку на эту область с помощью VBA, вот пример кода:
```vba
Sub AddPatternFillToChartArea()
Dim cht As Chart
Dim chtArea As ChartArea
Set cht = ThisWorkbook.Sheets("Sheet1").ChartObjects(1).Chart
Set chtArea = cht.ChartArea
With chtArea
.Format.Fill.Patterned Pattern:=xlDiagonalCrosshatch
End With
End Sub
```
Этот код добавляет штриховку с диагональной заливкой на область под графиком на листе "Sheet1". Вы можете изменить стиль штриховки, выбрав другой параметр для метода `Patterned`.
С помощью VBA также можно создать собственный стиль штриховки, используя метод `SetPattern`:
```vba
Sub AddCustomPatternFillToChartArea()
Dim cht As Chart
Dim chtArea As ChartArea
Dim p As Pattern
Set cht = ThisWorkbook.Sheets("Sheet1").ChartObjects(1).Chart
Set chtArea = cht.ChartArea
With chtArea
Set p = .Format.Fill.Pattern
p.SetPattern Pattern:=xlPatternLightVertical
p.ForeColor.RGB = RGB(255, 0, 0)
p.BackColor.RGB = RGB(0, 255, 0)
End With
End Sub
```
Этот код создает собственный стиль штриховки с вертикальной заливкой, красным цветом переднего плана и зеленым цветом фона. Вы можете экспериментировать с различными параметрами, чтобы создать свой собственный стиль штриховки.
Надеюсь, это поможет вам добавить заливку и штриховку на область под графиком в Excel с использованием VBA!