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

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

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

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

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

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

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

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

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

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

Змінюйте розмір зображень за допомогою 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 Змінити розмір зображень утиліта, ви можете позбутися від цих надокучливих і трудомістких операцій і швидко змінити розмір усіх зображень із вашого документа.

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

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

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

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

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

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

---

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

 

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

• Складні та повторювані операції можна виконати одноразово за кілька секунд.
• Вставте кілька зображень між папками в документ Word одночасно.
• Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
• Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
• Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...

Детальніше Завантажити зараз Купити