01 Что делает макрос
Этот макрос помогает привязать ваш график к определенному диапазону и получать идеальное расположение каждый раз.
Каждая диаграмма имеет четыре свойства, которые диктуют его размер и положение. Эти свойства: Width, Height, Top и Left. Каждый объект Range имеет те же свойства. Поэтому, если вы установили диаграмме свойства, совпадающее с определенным диапазоном, диаграмма привязывается к этому диапазону.
В этом примере мы регулируем четыре диаграммы так, что их свойства соответствуют заданному диапазону.
Обратите внимание, что мы обращаемся к каждой диаграмме по имени. Вы можете увидеть, как каждая из ваших диаграмм называется, выбрав любую диаграмму, на панели инструментов вы увидите имя диаграммы.
02 Код макроса
Sub
PrivyazatGrafikKDiapazonu()
Dim
SnapRange
As
Range
Set
SnapRange = ActiveSheet.Range(
"B6:G19"
)
With
ActiveSheet.ChartObjects(
"Диаграмма 1"
)
.Height = SnapRange.Height
.Width = SnapRange.Width
.Top = SnapRange.Top
.Left = SnapRange.Left
End
With
Set
SnapRange = ActiveSheet.Range(
"B21:G34"
)
With
ActiveSheet.ChartObjects(
"Диаграмма 2"
)
.Height = SnapRange.Height
.Width = SnapRange.Width
.Top = SnapRange.Top
.Left = SnapRange.Left
End
With
Set
SnapRange = ActiveSheet.Range(
"I6:Q19"
)
With
ActiveSheet.ChartObjects(
"Диаграмма 3"
)
.Height = SnapRange.Height
.Width = SnapRange.Width
.Top = SnapRange.Top
.Left = SnapRange.Left
End
With
Set
SnapRange = ActiveSheet.Range(
"I21:Q34"
)
With
ActiveSheet.ChartObjects(
"Диаграмма 4"
)
.Height = SnapRange.Height
.Width = SnapRange.Width
.Top = SnapRange.Top
.Left = SnapRange.Left
End
With
End
Sub
03 Как использовать
Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:
1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
3. Выберите Insert➜Module.
4. Введите или вставьте код во вновь созданном модуле.
04 Скачать файл
Автор проекта
Дмитрий Якушев
Привет! Меня зовут Дмитрий. С 2014 года Microsoft Cretified Trainer. Вместе с командой управляем этим сайтом. Наша цель - помочь вам эффективнее работать в Excel.
Изучайте наши статьи с примерами формул, сводных таблиц, условного форматирования, диаграмм и макросов. Записывайтесь на наши курсы или заказывайте обучение в корпоративном формате.
Сайт https://akademia-excel.ru/
ИП Якушев Дмитрий Александрович
ОГРНИП: 314501721200022
ИНН: 501706813807
Образовательная лицензия № Л035-01255-50/01194039
Почта: info@akademia-excel.ru
Телефон для связи: + 7 (958) 697-73-88, + 7 (495) 145-23-86
Регистрация на сайте означает согласие с пользовательским соглашением и на получение рассылки и рекламных материалов.
Политика в отношении обработки и защиты персональных данных.
Банковские реквизиты:
Расчетный счет 40802810500000003597
Банк АО «Тинькофф Банк»
Юридический адрес Банка Москва, 123060,1-й Волоколамский проезд, д. 10, стр. 1
Корр. счет Банка 30101810145250000974
ИНН Банка 7710140679
БИК Банка 044525974
Подписывайтесь на нас в соц.сетях:
Сайт https://akademia-excel.ru/
ИП Якушев Дмитрий Александрович
ОГРНИП: 314501721200022
ИНН: 501706813807
Образовательная лицензия № Л035-01255-50/01194039
Банковские реквизиты:
Расчетный счет 40802810500000003597
Банк АО «Тинькофф Банк»
Юридический адрес Банка Москва, 123060,1-й Волоколамский проезд, д. 10, стр. 1
Корр. счет Банка 30101810145250000974
ИНН Банка 7710140679
БИК Банка 044525974
Регистрация на сайте означает согласие с пользовательским соглашением и на получение рассылки и рекламных материалов.
Политика в отношении обработки и защиты персональных данных.
Почта: info@akademia-excel.ru
Телефон для связи: + 7 (958) 697-73-88, + 7 (495) 145-23-86
Написать в тех.поддержку
Подписывайтесь:
авторизуйтесь