Как всегда держать диаграмму в поле зрения при прокрутке в Excel?

Если в лист вставлена ​​диаграмма, во время прокрутки листа вниз для просмотра данных диаграмма не может быть просмотрена одновременно с показанным ниже снимком экрана, что должно быть неприятно. В этой статье я представляю код VBA, чтобы диаграмма всегда была на виду, даже если лист прокручивается вниз или вверх.

Всегда держите карту в поле зрения

Всегда держите карту в поле зрения

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

1. Щелкните правой кнопкой мыши вкладку листа, на которой диаграмма должна оставаться видимой, и щелкните Просмотреть код сформировать контекстное меню. Смотрите скриншот:

2. Во всплывающем Microsoft Visual Basic для приложений окна вставьте код ниже в пустой скрипт.

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 без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!