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

Як змінити розмір усіх / кількох зображень у програмі Word?

Коли ми копіюємо або імпортуємо зображення з Інтернету чи інших файлів, розмір зображень може бути різним. Кожен знає, як змінити розмір малюнків по одному, але якщо ми хочемо одночасно змінити їх розмір до однакового розміру, як це зробити? Цей підручник покаже вам кілька методів зміни розміру зображень.

Змінюйте розмір зображень вручну в Word

Змінюйте розмір зображень за допомогою VBA

Змініть розмір кількох зображень одночасно за допомогою Kutools для Word


Змінюйте розмір зображень вручну в Word

1. Щоб показати ручки розміру зображення, натиснувши на зображення;

2. Наведіть курсор на одну з ручок розміру зображення.

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

doc коригувати зображення 1

примітки: За допомогою цього методу ви не можете одночасно змінювати розмір кількох зображень. Вам потрібно змінити розмір їх по одному, поки не буде змінено розмір усіх зображень.


Змінюйте розмір зображень за допомогою VBA

За допомогою наведеного нижче коду VBA ви можете змінити розмір зображення до вашого ідеального розміру. Ви можете зробити це наступним чином:

У цьому прикладі розмір зображення змінюємо до висоти 1.78 дюйма та ширини 3.17 дюйма.

1. Виберіть зображення, яке потрібно змінити;

2. Прес Alt + F11 відкрити Microsoft Visual Basic для додатків вікно;

3. Клацання Модулі від Insert , скопіюйте та вставте наступний код VBA в Модулі вікно;

Код VBA: Змініть розмір одного зображення до певного розміру:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Натисніть прогін кнопка або F5 клавішу для запуску коду VBA, і вибране зображення було змінено відповідно до необхідного розміру.

примітки: У наведеному вище коді,  In shp.Height = InchesToPoints (1.78) і shp.Width = InchesToPoints (3.17) - це висота та ширина малюнка, ви можете змінити розмір відповідно до ваших потреб.

За допомогою цього коду VBA ви також не можете одночасно змінити розмір всього або кількох зображень. Вам потрібно переходити між документами Word та Microsoft Visual Basic для додатків вікно, щоб вибрати зображення та застосувати код. Це занадто трудомістко.


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

з Kutools для Word 's Змінити розмір зображень утиліта, ви можете позбутися від цих надокучливих і трудомістких операцій і швидко змінити розмір усіх зображень із вашого документа.

Kutools для Word : з більш ніж 100 зручними надбудовами Word, які можна спробувати без обмежень протягом 60 днів. 

1. Будь ласка, застосуйте цю утиліту, натиснувши Kutools Plus > Зміна розміру. Дивіться знімок екрана:

2. Якщо ви хочете змінити розмір усіх зображень до певного відсотка від їх початкового розміру, виберіть один із шести відсотків зі спадного списку. Наприклад, якщо ви хочете змінити розмір усіх зображень на 50% від їх початкового розміру, виберіть 50%. Після клацання 25%, ви побачите, що всі зображення були розміром до 50%. Дивіться знімок екрана:

doc коригувати зображення 3

Якщо ви хочете налаштувати всі зображення до однакового розміру з вибраним, виберіть зображення як розмір моделі, а потім натисніть Kutools Plus > Зміна розміру > Змініть розмір зображень із виділенням, і всі зображення будуть змінені однакового розміру залежно від вибраного, див. знімок екрана:

doc коригувати зображення 4

Для отримання більш детальної інформації про Kutools для WordАвтора Змінити розмір зображень натисніть, будь ласка тут.

Натисніть, щоб завантажити Kutools для Word та безкоштовну пробну версію зараз!


Демонстрація: змініть розмір усіх зображень одночасно у програмі Word

Kutools для Word: з більш ніж 100 зручними надбудовами Word, спробуйте безкоштовно без обмежень протягом 60 днів. Завантажте та безкоштовно пробну версію зараз!


Рекомендовані засоби підвищення продуктивності слів

 

Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (7)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
заощадьте гроші та запустіть цей макрос: Кредит Дейву Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With Кінець суб
Цей коментар був мінімізований модератором на сайті
заощадьте гроші та запустіть цей макрос: Кредит Дейву Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End З кінцевим суб Відмінно!!! Ви заощадили мої гроші та мій час. Дуже дякую!
Цей коментар був мінімізований модератором на сайті
Де я вставив цей код?
Цей коментар був мінімізований модератором на сайті
Хтось знає, чи доступна функція заповнювача зображення/крапельниці/автоматичного розміру в Windows 365? Не знаю, де шукати чи знайти допомогу з цього приводу, оскільки допомога в чаті Microsoft була НАСТОЛЬКО некорисною. Будемо вдячні за будь-які поради.
Цей коментар був мінімізований модератором на сайті
Мені потрібно змінити розмір усіх зображень у документі Word до однакової ширини, але не деформувати зображення. тому масштабуйте їх до однакової ширини. Чи можливо це через макрос?
Цей коментар був мінімізований модератором на сайті
Якщо ви збережете документ як .docx, ви зможете відкрити його як zip-архів. Буде папка медіа з усіма зображеннями (у мене були зображення PNG). Потім ви можете використовувати такі програми, як IrfanView, XnViewMP, FastStone Viewer, щоб виконувати пакетні перетворення, як-от зміна розміру, зменшення глибини кольору тощо. Запакуйте зображення назад у zip і перейменуйте їх у docx. Наприклад, у моєму docx, повному скріншотів, мені потрібно було зменшити кількість кольорів до 8, чого достатньо для документації. Після обробки мій документ розміром 10 МБ перетворився на 1.8 МБ, тому економія може бути значною. Завжди зберігайте оригінальний docx на випадок, якщо ви хочете відновити зображення після занадто сильного погіршення/обробки тощо.
Цей коментар був мінімізований модератором на сайті
Я витратив добрих 3 години чи більше, намагаючись змусити ці макроси VBA працювати. Здався та спробував Kutools, який чудово працює! Купив його одразу, оскільки він коштує 49 доларів!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

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

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