Note: The other languages of the website are Google-translated. Back to English

Як змінити розмір малюнків, щоб розмістити комірки в Excel?

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

Змініть розмір вибраного зображення, щоб вмістити одну клітинку за допомогою VB Macro

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

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2021 і 365; Підтримує всі мови; Легке розгортання на вашому підприємстві чи в організації.

стрілка синя права міхур Змініть розмір вибраного зображення, щоб вмістити одну клітинку за допомогою VB Macro

Ми можемо застосувати макроси VB, щоб змінити розмір вибраного зображення відповідно до однієї комірки, але не вручну змінювати розмір зображення по ширині та висоті. Ви можете зробити це, виконавши такі дії:

Крок 1: Вставте зображення на робочий аркуш і виберіть малюнок, розмір якого буде змінено відповідно до однієї комірки.

doc-resize-pictures-to-fit-cells1

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

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

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: Повторіть кроки вище, щоб змінити розмір інших зображень відповідно до однієї комірки.

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

doc-resize-pictures-to-fit-cells2

примітки: Ви можете одночасно змінити розмір лише одного зображення. Якщо одночасно вибрати кілька зображень, з’явиться діалогове вікно попередження.


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

Якщо у вас є Kutools для Excel встановлений, ви можете застосувати його Імпорт зображень інструмент для зміни розміру всіх зображень відповідно до клітинок або з фіксованою висотою під час вставки зображень.

Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз.

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

doc-resize-picture-to-fit-cell-1

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

doc-resize-picture-to-fit-cell-2

Крок 3: Перевірте Відповідний розмір комірки варіант. Потім клацніть Ok > Імпортувати щоб закрити діалоги. Дивіться знімок екрана:

doc-resize-picture-to-fit-cell-3

Тепер ви можете бачити, що картинки вставляються відповідно до клітинок.

doc-resize-picture-to-fit-cell-4

примітки: Ви також можете вказати висоту та ширину комірки на кроці 3, щоб змінити розмір зображень.

Якщо ви хочете дізнатися більше про це Імпортувати зображення функція, будь ласка, відвідайте тут.


Пов'язані статті:

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


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

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (15)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Макрос FitPic, зазначений вище, — Sweeeeeet! Я зробив купу фотографій предметів з гаражного розпродажу, які зрештою дісталися Армії порятунку. Я задокументував зображення та значення в податкових цілях Excel. Цей макрос спрацював вперше! :Лол:
Цей коментар був мінімізований модератором на сайті
Інструкції для Excel
Цей коментар був мінімізований модератором на сайті
Дякую, це було ідеально!!
Цей коментар був мінімізований модератором на сайті
Працює!! Але в мене є одне запитання: я хочу вмістити img в діапазон об’єднаних клітинок, як я можу це зробити?
Цей коментар був мінімізований модератором на сайті
[quote]Працює!! Але в мене є одне запитання: я хочу вмістити img в діапазон об’єднаних клітинок, як я можу це зробити?Від Марсело[/quote] Марсело, ти отримав оновлений marco для об’єднаної клітинки? Я намагаюся зробити те ж саме. Спасибі
Цей коментар був мінімізований модератором на сайті
Я спробував цей макрос минулої ночі, і він регулює лише висоту. Ширина не відповідає дійсності. Будь ласка, будь ласка?
Цей коментар був мінімізований модератором на сайті
Public Sub FitPic()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
«Невелика зміна, щоб змінити розмір об’єднаних клітинок
Помилка Перейдіть до NOT_SHAPE
Dim PicWtoHRatio як одинокий
Dim CellWtoHRatio як одиночний
З виділенням
PicWtoHRatio = .Width / .Height
Кінець з
За допомогою Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
Кінець з
Виберіть Case PicWtoHRatio / CellWtoHRatio
Випадок > 1
З виділенням
.Width = .TopLeftCell.MergeArea.Width
.Висота = .Ширина / PicWtoHRratio
Кінець з
Інший випадок
З виділенням
.Height = .TopLeftCell.MergeArea.Height
.Width = .Height * PicWtoHRratio
Кінець з
End Select
З виділенням
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.Placement = xlMoveAndSize
Кінець з
Exit Sub
NOT_SHAPE:
MsgBox "Виберіть зображення перед запуском цього макросу."
End Sub
Цей коментар був мінімізований модератором на сайті
Дякую, це спрацювало, але у мене є близько 500 зображень, тому я не хочу робити їх по одному – будь ласка, як мені зробити їх усі одночасно?
Цей коментар був мінімізований модератором на сайті
Привіт, мені дуже подобається цей макрос, який робить зображення відповідними клітинкам, він дійсно допоміг мені з деякими речами. Але хтось знає, як написати цей код для applescript? Я маю використовувати Mac, а яблучна версія Excel, Numbers, використовує лише applescript. Допоможіть! Велике спасибі, Гаррі
Цей коментар був мінімізований модератором на сайті
це працює, якщо клітинки не об’єднані. на жаль, я об'єднав деякі клітинки, і воно поміщається лише у верхній лівій клітинці, що робить фотографію дуже крихітною.
Цей коментар був мінімізований модератором на сайті
Блискуче! Чудово працює! Саме те, що я шукав! Дякую!
Цей коментар був мінімізований модератором на сайті
Привіт ..
ідеальне рішення. Але я хочу, щоб ця функція працювала з командною кнопкою. Мені потрібно створити командну кнопку, щоб вставити та автоматично змінити розмір комірки. будь ласка, допоможіть.
Цей коментар був мінімізований модератором на сайті
Привіт, потрібен цей код для відключення співвідношення сторін блокування
Цей коментар був мінімізований модератором на сайті
Дякую, це дійсно працює!
Цей коментар був мінімізований модератором на сайті
Макропозиція зображення "Immagine 2" у центрі клітинки ("D5"), тому вона є єдиною для іншої клітинки. Spero possa esservi utile

Sub ImpFoto()
Dim hcell As Single ' altezza cella
Dim Lcell As Single ' larghezza cella
Dim hfoto As Single ' altezza foto
Dim Lfoto As Single ' велика фотографія
Dim Rfoto As Single ' rapporto foto h/L

Діапазон ("D5"). Виберіть

hcell = Selection.Height
Lcell = Selection.Width
hfoto = ActiveSheet.Shapes("Immagine 2").Висота
Lfoto = ActiveSheet.Shapes("Immagine 2").Width
Rfoto = hfoto / Lfoto

Якщо hfoto < Lfoto Тоді
Lfoto = Lcell - 10
hfoto = Lfoto * Rfoto

Якщо hfoto > hcell Тоді
hfoto = hcell - 3
Lfoto = hfoto / Rfoto
End If

ActiveSheet.Shapes("Immagine 2").Висота = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
Ще
hfoto = hcell - 10
Lfoto = hfoto / Rfoto
ActiveSheet.Shapes("Immagine 2").Висота = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
End If

Діапазон ("D5"). Виберіть

З ActiveSheet.Shapes("Immagine 2")
.Top = Selection.Top + (Selection.Height - .Height) / 2
.Left = Selection.Left + (Selection.Width - .Width) / 2
Кінець з
End Sub
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL