Как всегда держать диаграмму в поле зрения при прокрутке листа в Excel?
Если на листе размещена диаграмма, при прокрутке вниз для просмотра данных она перестаёт отображаться — как показано на скриншоте ниже. Это крайне неудобно. В этой статье я предлагаю код VBA, который всегда удерживает диаграмму в поле зрения, даже когда вы прокручиваете лист вверх или вниз.
 |
 |
 |
Всегда держать диаграмму в поле зрения
Всегда держать диаграмму в поле зрения
Чтобы диаграмма оставалась видимой при прокрутке листа, воспользуйтесь приведённым ниже кодом VBA.
1. Щёлкните правой кнопкой мыши по ярлыку листа, на котором нужно сохранить видимость диаграммы, и выберите в контекстном меню пункт Просмотреть код. См. скриншот:
2. Во всплывающем окне Microsoft Visual Basic for Applications вставьте приведённый ниже код в пустой скрипт.
VBA: Диаграмма всегда в поле зрения
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
Dim CPos As Double
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveSheet.Shapes("Chart 2").Top = CPos
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub
3. Сохраните и закройте диалоговое окно — после этого диаграмма будет перемещаться вверх или вниз при переходе к любой ячейке.
Примечания:
(1) В коде VBA «Chart 2» — это имя диаграммы, которую вы хотите сохранить в поле зрения; его можно изменить по необходимости.
(2) Данный код VBA не обеспечивает постоянное отображение группы диаграмм в поле зрения.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек