Как да преоразмерите снимки, за да паснат на клетките в Excel?
Обикновено вмъкнатите картинки се движат над клетките и през повечето време една картина покрива много клетки. Ако работният лист има голям брой снимки, може да искате да поставите всяка картина в една клетка. Но как да се справим с него? Всъщност има няколко трудни начина да ни помогнете бързо да преоразмерим снимките, за да паснат на размера на клетките.
Преоразмерете избрана картина, за да пасне на една клетка с VB Macro
Преоразмерете вмъкнати картини, за да паснат на клетки с Kutools за 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 за Excel
Ако имате Kutools за Excel инсталиран, можете да го приложите Импортиране на снимки инструмент за преоразмеряване на всички картини, за да паснат на клетки или с фиксирана височина по време на вмъкване на картини.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.
Стъпка 1: Изберете клетките от диапазона, които искате да вмъкнете, и щракнете върху Enterprise >Import / Export > Импортиране на снимки. Вижте следната екранна снимка:
Стъпка 2: В Импортиране на снимки диалогов прозорец, изберете реда за вмъкване от падащия списък и щракнете Добави бутон, за да добавите нужните ви снимки от файл или папка, след което щракнете Размер бутон. Вижте екранна снимка:
Стъпка 3: Проверете Съответстващ размер на клетката опция. След това кликнете Ok > внос за затваряне на диалогови прозорци. Вижте екранна снимка:
Сега можете да видите, че снимките са вмъкнати, за да паснат на клетките.
Забележка: Можете също така да посочите височината и ширината на клетката в стъпка 3, за да промените размера на снимките.
Ако искате да научите повече за това Импортиране на снимка функция, моля посетете тук.
Свързан член:
Как да преоразмерите няколко клетки, за да се поберат снимките над тях бързо в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
