добавление цветной вертикальной полосы в диаграмму Excel с помощью макроса vba

Question

Я пытаюсь добавить цветную вертикальную полосу к диаграмме в Excel программно с помощью макроса vba.

У меня есть диаграмма, которая содержит несколько чисел по оси X от 1 до 50, и я хочу добавить цветную вертикальную полосу от 1 до 10 и еще одну от 10 до 20 с другим цветом и т. Д.

Любая помощь или подсказка

Answer 1

Это решение использует изображение для фона области графика.

Эта строка кода устанавливает фоновое изображение. При необходимости обновите ссылку на лист, имя диаграммы и имя файла.

ActiveSheet.ChartObjects("Chart 1").Chart.PlotArea.Format.Fill.UserPicture "C:\background.png"

Я использую MS Paint для создания различных фоновых изображений. Вот шаги:

1. Создайте новый файл и установите для атрибутов высоту 1 пиксель и X пикселей в ширину, где X - количество нужных вам полос.

2. Установите максимально возможное увеличение.

3. Используя инструмент Карандаш, раскрасьте каждый пиксель так, как вы хотите, чтобы полосы появляться.

4. Изменение размера изображения на 500% по горизонтали и вертикали; сделать это 2-3 раза чтобы получить изображение, достаточно большое, чтобы не растягивать диаграмма. (Примечание: если оставить его маленьким, произойдет смешивание цветных полос что может быть желательным.)

5. Сохраните файл.

Если на ваших графиках будет отображаться различное количество точек, подготовьте несколько фоновых изображений, а затем выберите подходящее в вашем коде.