Как быстро изменить размер нескольких ячеек в Excel, чтобы разместить в них изображения?
Как известно, Microsoft Excel поддерживает автоматическую подгонку высоты строк и ширины столбцов под содержимое ячеек, например под длинные текстовые строки. Однако команды «Автоформат по ширине» (для высоты строки) и «Автоформат по высоте» (для ширины столбца) не работают с изображениями, поскольку вставленное изображение не привязано к конкретной ячейке.
Изменение размера ячеек под изображения с помощью VBA
Изменение размера изображений под ячейки с помощью Kutools для Excel
Изменение размера ячеек под изображения с помощью VBA
Предположим, на листе размещены два крупных изображения (см. следующий снимок экрана). Возможно, кому-то понадобится изменить размер ячейки так, чтобы она точно соответствовала изображению, расположенному над ней. Но как этого добиться?
Конечно, каждую ячейку можно вручную подогнать под изображение над ней. Однако при большом количестве изображений этот процесс быстро становится утомительным и трудоёмким. На самом деле, гораздо эффективнее — применить макрос на языке VB, чтобы автоматически изменить размер всех ячеек сразу под соответствующие изображения. Для этого выполните следующие шаги:
Шаг 1: Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
Шаг 2: Нажмите Вставка > Модуль и вставьте следующий макрос в окно модуля.
VBA: изменение размера нескольких ячеек под их изображения.
Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End SubШаг 3: Нажмите клавишу F5, чтобы запустить этот макрос.
Теперь на текущем листе, если присутствуют изображения, ячейка под каждым из них автоматически изменит размер, чтобы точно соответствовать изображению над ней. См. следующий снимок экрана:
Изменение размера изображений под ячейки с помощью Kutools для Excel
Если вы уже настроили размер ячеек, как показано на снимке экрана ниже, а затем захотите импортировать изображения и автоматически подогнать их под размер ячеек — как это сделать быстро? В этом случае Kutools для Excel's функция «Импорт изображений» легко справится с этой задачей.
После установки Kutools для Excel выполните следующие действия:
1. Нажмите KUTOOLS PLUS > Импорт/Экспорт > Импортировать изображения. См. снимок экрана:
2. В появившемся диалоговом окне Импортировать изображения сначала укажите порядок импорта в разделе Порядок импорта, затем нажмите кнопку Добавить, чтобы поочерёдно добавить изображения из папки или отдельные файлы. После этого список изображений появится в разделе Изображение. См. снимок экрана:
3. Затем нажмите кнопку Импорт, чтобы открыть диалоговое окно Размер импортируемого изображения, и установите флажок рядом с параметром Соответствие размеру ячейки. См. снимок экрана:
4. Нажмите ОК → Импорт, чтобы открыть диалоговое окно для выбора ячеек, в которые вы хотите импортировать изображения. См. снимок экрана:
5. Нажмите ОК — и все изображения будут импортированы в ячейки, автоматически подстроившись под их размер.
Связанная статья:
Как вставить несколько изображений в ячейку в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек