Нижче ми розглянемо дві програми в Excel VBA. Одна програма прокручує всі діаграми на аркуші та змінює кожну діаграму на кругову діаграму. Інша програма дещо змінює властивості першої діаграми.
1. Створіть деякі діаграми (або завантажте файл Excel).
Помістіть командну кнопку на аркуші та додайте такі рядки коду:
1. По -перше, нам потрібно оголосити об’єкт ChartObject. Об'єкт ChartObject діє як контейнер для об'єкта Chart. Ми називаємо ChartObject cht, але ви можете використовувати будь -яке ім'я.
Затемнити як ChartObject
2. Колекція ChartObjects містить усі вбудовані діаграми на одному аркуші. Ми хочемо прокрутити всі діаграми на першому аркуші. Додайте наступне для кожної наступної петлі.
Для кожного cht у робочих аркушах (1) .ChartObjects
Наступний чт
3. Об'єкт Chart являє собою діаграму у книзі. Додайте наступний рядок коду до циклу For Every Next, щоб змінити кожну діаграму на кругову діаграму.
cht.Chart.ChartType = xlPie
Примітка: знову ж таки, cht діє як контейнер для об'єкта Chart. Ми використовуємо властивість ChartType для зміни типу діаграми. Ми використовуємо вбудовану константу xlPie для зміни кожної діаграми на кругову.
4. Результат, коли ви натискаєте кнопку команди на аркуші:
Тепер ми змінимо деякі властивості першого діаграми.
Помістіть іншу командну кнопку на аркуші та додайте такі рядки коду:
5. Колекція ChartObjects містить усі вбудовані діаграми на одному аркуші. Для активації першої діаграми додайте такий рядок коду:
Робочі аркуші (1) .ChartObjects (1) .Активувати
Тепер ми можемо називати цю діаграму ActiveChart.
6. Додайте наступний кодовий рядок, щоб змінити назву діаграми.
ActiveChart.ChartTitle.Text = "Звіт про продажі"
7. Додайте наступний кодовий рядок, щоб перемістити легенду до низу діаграми:
ActiveChart.Legend.Position = xlBottom
8. Результат, коли ви натискаєте кнопку команди на аркуші:
