Как быстро изменить размер нескольких ячеек, чтобы они соответствовали изображениям в Excel?
Как мы знаем, Microsoft Excel поддерживает автоматическое изменение размера строки и ширины столбца ячейки для соответствия заполненному содержимому, например длинной текстовой строке. Однако команды "Автоподбор высоты строки" и "Автоподбор ширины столбца" недействительны для изображения, поскольку вставленное изображение не находится в определенной ячейке.
Измените размер ячеек по размеру изображений с помощью VBA
Измените размер изображений, чтобы они соответствовали ячейкам с помощью Kutools for 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 for Excel
Если вы изменили размер ячеек, как показано на скриншоте ниже, а затем хотите импортировать и изменить размер изображений, чтобы они соответствовали размеру ячеек, как вы можете быстро это сделать? В этом случае, Kutools for Excel's Импорт изображений утилита может помочь вам легко справиться с этой работой.
| Kutools for Excel, с более чем 120 удобные функции, облегчают вашу работу. | ||
После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)
1. Нажмите Предприятие > Импорт/Экспорт > Импорт изображений. Смотрите скриншот:
2. Во всплывающем Импорт изображений диалоговом окне вы можете сначала указать порядок импорта в Заказ на импорт раздел, а затем щелкните Добавить кнопку, чтобы добавить изображения из папки или в виде файлов по одному, после чего вы увидите, что изображения перечислены в Картина раздел. Смотрите скриншот:
3. Затем нажмите Импортировать кнопка, чтобы показать Размер импортированного изображения диалоговое окно, затем проверьте Соответствующий размер ячейки вариант. Смотрите скриншот:
4. Нажмите OK > Импортировать для отображения диалогового окна выбора ячеек, в которые вы хотите импортировать изображения. Смотрите скриншот:
5. Нажмите OK, и теперь все объекты импортируются в ячейки и меняют свои размеры до соответствующих ячеек.
Импортировать изображения по размеру ячейки
Связанная статья:
Как вставить несколько изображений в ячейку в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
