Как автоматически настроить все изображения в Excel на «Перемещать и изменять размер вместе с ячейками»?
Работая с изображениями в Excel, вы могли заметить, что вставленные на лист изображения по умолчанию имеют параметр «Перемещать, но не изменять размер вместе с ячейками». Это означает, что при изменении размеров ячеек — например, ширины столбца или высоты строки — изображения сохраняют свои исходные размеры и не подстраиваются под новый формат ячеек. Для пользователей, которым важно безупречное выравнивание изображений при корректировке ячеек — например, при создании панелей мониторинга, отчётов или визуальных трекеров, — такое поведение по умолчанию может оказаться неудобным и потребовать трудоёмкой ручной настройки, особенно если на листе размещено множество изображений.
Чтобы решить эту проблему, Excel позволяет настроить свойства каждого изображения так, чтобы оно не только перемещалось, но и автоматически изменяло размер вместе с ячейками («Перемещать и изменять размер вместе с ячейками»). Однако вручную изменять этот параметр для каждого изображения — утомительно. В этой статье представлен эффективный способ автоматически применить нужный режим ко всем изображениям на листе с помощью простого кода VBA. Этот метод особенно полезен, если вы часто реорганизуете, фильтруете или изменяете строки и столбцы с изображениями: он гарантирует точное выравнивание визуальных элементов относительно данных.
Автоматическое изменение всех изображений на «Перемещать и изменять размер вместе с ячейками» с помощью кода VBA
Если на вашем листе несколько изображений и вы хотите, чтобы все они одинаково реагировали на изменения соответствующих ячеек, воспользуйтесь приведённым ниже кодом VBA — он мгновенно задаст для всех объектов-изображений на активном листе параметр «Перемещать и изменять размер вместе с ячейками». Это автоматизированное решение избавляет от необходимости выполнять одни и те же действия вручную, повышает эффективность рабочего процесса и минимизирует риск пропустить какие-либо изображения.
Ниже приведено пошаговое руководство по применению этого решения на основе VBA:
1. Откройте лист с изображениями, которые нужно настроить так, чтобы они перемещались и изменяли размер вместе с ячейками. Затем запустите редактор Microsoft Visual Basic for Applications, нажав на клавиатуре Alt+F11. Эта комбинация клавиш работает в большинстве версий Excel.
Примечание: если вкладка Разработчик не отображается, её можно включить через Параметры Excel. Если вы работаете с защищённой или общей книгой, некоторые функции могут быть недоступны, поэтому убедитесь, что у вас есть необходимые права на редактирование.
2. В окне Microsoft Visual Basic for Applications выберите Вставка > Модуль, чтобы создать новый модуль. Затем скопируйте и вставьте следующий код VBA в окно кода:
Код VBA: изменение всех изображений на «Перемещать и изменять размер вместе с ячейками»
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End SubСоветы:
- Убедитесь, что вы работаете с нужным листом перед запуском макроса, так как код повлияет на все изображения на текущем листе.
- Если на вашем листе есть другие объекты — например, фигуры, диаграммы или значки, — этот код работает только с изображениями и не затрагивает остальные элементы.
3. Нажмите F5 или щёлкните кнопку «Выполнить» в редакторе VBA, чтобы запустить код. После выполнения все изображения на активном листе автоматически перейдут в режим «Перемещать и изменять размер вместе с ячейками». Вам не нужно выделять изображения по одному — код обрабатывает их все сразу.
Это решение минимизирует ручные усилия и обеспечивает единообразное форматирование, особенно при частых изменениях строк или столбцов. Если вы заметите, что некоторые изображения не обновились так, как ожидалось, убедитесь, что Excel распознаёт их именно как изображения — в Панели выбора они должны отображаться как «Изображение», а не как объекты других типов.
Если во время выполнения возникнет ошибка, проверьте, не выбран ли случайно лист диаграммы, а также убедитесь, что изображения не заблокированы и не сгруппированы. В большинстве случаев запуск кода, как описано выше, даёт желаемый результат.
Для ещё большей оптимизации рабочего процесса рекомендуем сохранить книгу перед запуском кода VBA. Если вы планируете выполнять эту операцию регулярно, назначьте макрос кнопке — так вы получите к нему доступ всего в один клик.
В качестве практичной альтернативы для тех, кто не хочет использовать VBA, можно вручную настроить свойства каждого изображения: щёлкните по нему правой кнопкой мыши, выберите Формат изображения, перейдите на вкладку Свойства и установите флажок «Перемещать и изменять размер вместе с ячейками». Однако этот способ подходит только для листов с небольшим количеством изображений.
Другой связанный метод — использование команды Excel VBA «Панель выбора» для фильтрации и быстрого выделения всех изображений перед ручной настройкой их свойств, что обеспечивает более точный контроль в сложных макетах с разнотипными объектами.
См. также:
- Как центрировать изображение по ячейке в Excel?
- Как проверить, содержит ли ячейка изображение в Excel?
- Как динамически вставить изображение в ячейку Excel в зависимости от её значения?
- Как увеличить изображение в Excel при щелчке по нему?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек