Перейти до основного матеріалу

Як змінити розмір кількох комірок, щоб швидко помістити зображення в Excel?

Як ми знаємо, Microsoft Excel підтримує автоматичне зменшення розміру висоти рядка та ширини стовпця комірки відповідно до заповненого вмісту, наприклад, довгого текстового рядка. Однак команда AutoFit Row Height Height (Висота рядка) та AutoFit (Ширина стовпця) не є дійсними для зображення, оскільки вставлене зображення не містить певної комірки.

Змініть розмір комірок, щоб розмістити зображення за допомогою VBA

Змінюйте розмір зображень відповідно до клітинок за допомогою Kutools для Excel гарна ідея3


Змініть розмір комірок, щоб розмістити зображення за допомогою VBA

Припустимо, що на аркуші є дві великі картинки, див. Наступний знімок екрана. Хтось може захотіти змінити розмір комірки, щоб розмістити зображення над коміркою. Але як це реалізувати?

doc-resize-cell-to-fit-picture1

Звичайно, ви можете автоматично змінити розмір кожної комірки, щоб розмістити зображення над ними. Однак це може бути нудним та трудомістким процесом для багатьох знімків. Насправді ми можемо застосувати макрос VB, щоб змінити розмір усіх комірок, щоб розмістити зображення над ними. Ви можете зробити це, виконавши такі дії:

Крок 1: утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

Крок 2: клацніть Insert > Модуліта вставте наступний макрос у вікно модуля.

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 ключ для запуску цього макросу.

Тепер на поточному аркуші, якщо є зображення, клітинка під зображенням буде змінена відповідно до зображення над ним. Дивіться наступний знімок екрана:

doc-resize-cell-to-fit-picture2


Змінюйте розмір зображень відповідно до клітинок за допомогою Kutools для Excel

Якщо ви налаштували розмір комірок, як показано на знімку екрана, а потім ви хочете імпортувати та змінити розмір зображень відповідно до розмірів комірок, як ви можете швидко це зробити? В цьому випадку, Kutools для Excel's Імпортуйте Pictrues Утиліта допоможе вам легко впоратися з цією роботою.
doc змінити розмір зображення, придатного для комірки 1

Kutools для Excel, з більш ніж 120 зручні функції, полегшує вам роботу. 

після установки Kutools для Excel, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Excel зараз!)

1. клацання підприємство > Імпорт-експорт > Імпорт зображень. Дивіться знімок екрана:
doc змінити розмір зображення, придатного для комірки 2

2. У вискакуванні Імпорт зображень У діалоговому вікні ви можете вказати порядок імпорту першим у Імпортне замовлення і натисніть кнопку додавати , щоб додати фотографії з папки або у вигляді файлів по одному, тоді ви зможете побачити список зображень у Картинка розділ. Дивіться знімок екрана:
doc змінити розмір зображення, придатного для комірки 3

3 Потім натисніть Імпортувати кнопку, щоб показати Імпортувати розмір зображення діалогове вікно, потім перевірте Відповідний розмір комірки варіант. Дивіться знімок екрана:
doc змінити розмір зображення, придатного для комірки 4

4. клацання OK > Імпортувати для відображення діалогового вікна для вибору комірок, які потрібно імпортувати. Дивіться знімок екрана:
doc змінити розмір зображення, придатного для комірки 5

5. клацання OK, і тепер усі перкурси імпортуються в клітини і змінюють їх розміри, щоб розмістити клітини.
doc змінити розмір зображення, придатного для комірки 6


Пов'язані статті:
Як вставити декілька зображень у комірку в Excel?

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations