Как изменить размер изображений по размеру ячеек в Excel?

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

Измените размер выбранного изображения, чтобы оно соответствовало одной ячейке с помощью VB Macro

Измените размер вставленных изображений, чтобы они соответствовали ячейкам с помощью Kutools for Excel

Измените размер выбранного изображения, чтобы оно соответствовало одной ячейке с помощью VB Macro

Мы можем применить макросы VB для изменения размера выбранного изображения, чтобы оно соответствовало одной ячейке, но не вручную изменять размер изображения по ширине и высоте. Вы можете сделать это, выполнив следующие действия:

Шаг 1. Вставьте изображения на лист и выберите изображение, размер которого вы измените, чтобы он соответствовал одной ячейке.

Шаг 2: Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

Шаг 3: нажмите Вставить > Модулии вставьте следующий макрос в окно модуля.

VBA: изменение размера выбранного изображения по размеру ячейки.

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

Шаг 4: нажмите F5 ключ для запуска этого макроса.

Шаг 5: Повторите шаги выше, чтобы изменить размер других изображений, чтобы они соответствовали одной ячейке.

Теперь все вставленные картинки изменены и помещаются в ячейки. См. Следующий снимок экрана:

Внимание: Вы можете изменить размер только одного изображения один раз. Если вы выберете более одного изображения один раз, появится диалоговое окно с предупреждением.

Измените размер вставленных изображений, чтобы они соответствовали ячейкам с помощью Kutools for Excel

Если вы только что Kutools for Excel установлен, вы можете применить его Импорт изображений инструмент для изменения размера всех изображений в соответствии с ячейками или с фиксированной высотой во время вставки изображений.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

Шаг 1. Выберите ячейки диапазона, в которые вы хотите вставить изображения, и щелкните значок Кутулс Плюс >Импорт/Экспорт > Импорт изображений. См. Следующий снимок экрана:

Шаг 2: в Импорт изображений диалоговом окне выберите порядок вставки в раскрывающемся списке и нажмите Добавить кнопку, чтобы добавить нужные изображения из файла или папки, затем нажмите Размер кнопка. Смотрите скриншот:

Шаг 3: проверьте Соответствующий размер ячейки вариант. Затем нажмите Ok > Импортировать закрыть диалоги. Смотрите скриншот:

Теперь вы можете видеть, что изображения вставлены по размеру ячеек.

Внимание: Вы также можете указать высоту и ширину ячейки на шаге 3, чтобы изменить размер изображений.

Если вы хотите узнать больше об этом Импорт изображения функция, пожалуйста, посетите здесь.

Связанная статья:

Как быстро изменить размер нескольких ячеек, чтобы они соответствовали изображениям над ними в Excel?