Макрос для изменения размера рисунков в word

Иногда пользователю нужно разом вставить в документ Microsoft Word кучу картинок. Ну и, чисто эстетически, хочется, чтобы все они были одного размера. Только вот по одному исправлять – времени много уходит. А ведь в приложении есть специальный инструмент, с помощью которого можно подогнать разом размер кучи изображений. Об этой функции я сегодня и расскажу.

Подгонять размер картинок в Microsoft Word можно несколькими способами. Как я уже говорила, есть быстрый способ изменения размеров всех изображений разом или каждого по отдельности. Я разберу несколько способов, постараюсь описать их реализацию максимально подробно.

Изменение размера одной картинки вручную

Самый простой способ изменить размер картинки в MS Word (который я постоянно практикую) – навести курсор на угол или любой край картинки и вытянуть его. А если нужно, чтобы по ширине они были схожи, можно ориентироваться по линейке.

Указать точную высоту и ширину вручную

Для этого мне нужно сначала нажать на изображение, после чего в главном меню появится дополнительная категория «Работа с рисунками». Жму по вкладке «Формат», после чего в правой ее части, в разделе «Размер», можно указать конкретные величины по высоте и ширине. Этот способ распространяется не только на картинки, но и различные объекты, фигуры, надписи и так далее.

Практически точно так же можно указать размер в окне с более подробными параметрами. Для этого нужно в том же разделе кликнуть на маленькую ссылку в правом нижнем углу этого меню.

В результате откроется окно «Макет». Во вкладке «Размер» я могу указать более точную высоту и ширину картинки, а также масштаб ее относительно некоторых элементов или исходного размера в процентах.

Использование макросов

Для изменения размера огромного количества картинок за раз можно использовать макросы. Это специальная опция, позволяющая оптимизировать в приложении одну определенную задачу и настроить ее повтор в дальнейшем. Необходимо просто записать определенные шаги, необходимые для изменения размера изображений. Перейти к данной утилите можно через вкладку «Вид». Нахожу соответствующий элемент в списке доступных функций, жму по нему для выхода контекстного меню, затем выбираю элемент «Макросы».

В новом окне в поле «Имя» введу наименование, которое я предполагаю дать новому макросу, к примеру, «Размеры». После этого жму на кнопку «Создать».

В результате откроется окно «Microsoft Visual Basic For Applications». После чего в активном поле ввожу вот такое значение.

Sub Размеры

Dim i As Long

With ActiveDocument

For i = 1 To .InlineShapes.Count

With .InlineShapes (i)

.Height = 300

.Width = 800

End With

Next i

End With

End Sub

Здесь я задаю высоту в 300 пикселей, а ширину – в 800, но значения можно задать на свое усмотрение. После копирования сохраняю параметр, нажав на комбинацию клавиш Ctrl + S. Далее выхожу из этого активного окна.

После этого вновь, тем же способом, открываю окно «Макросы», выбираю только что созданный пункт и жму на кнопку «Выполнить». После этого размеры изображений будут изменяться автоматически и подгоняться под указанные мной рамки.

Заключение

Менять размеры изображений в документе Microsoft Word можно несколькими способами, причем как кучкой, так и по одной картинке. Выбирать стоит исходя из своих потребностей, при этом учитывать вид документа в дальнейшем. Ведь если картинка потерпит сильные изменения, информация на ней может отображаться недостаточно четко. 

Post Views: 19 274

Вы хотите вставить несколько изображений в документ Word, но они имеют разный размер. Однако вы хотите, чтобы они были одинакового размера в вашем документе. Вы можете использовать правильные инструменты для редактирования изображений, но иногда у вас нет к ним доступа. В таких ситуациях вы можете использовать Microsoft Word для изменения размера всех изображений.

Изменение размера всех изображений до одинаковой высоты и ширины с помощью клавиши клавиатуры

а. Щелкните правой кнопкой мыши на первом изображении, откройте поле «Размер и положение» (или откройте поле из «Изображение» -> «Формат» -> «Размер». Вам нужно поле размера, а не только параметры высоты и ширины на вкладке, чтобы заблокировать соотношение сторон, иначе не получится)
б. Снимите флажок «Блокировать соотношение сторон».
с участием. Измените высоту и ширину на желаемый размер
и закрыть коробку
e.Нажмите на следующее изображение и нажмите F4. Продолжайте кликать по последовательным изображениям и нажимать F4 (для MAC используйте «команда — Y»).
и. Для больших документов используйте вертикальную полосу прокрутки справа для перехода от одного изображения к другому.

Использование макросов

Иногда нам хотелось бы, чтобы у нас была единственная кнопка, которую мы могли бы нажать, чтобы автоматически выполнить сложную задачу. Это то, что делают макросы в Word.

Макросы автоматизируют конкретную задачу, которая в противном случае потребовала бы ее повторения. Вы можете создать макрос, записав шаги, которым вы хотите следовать, или написав серию инструкций.

Так как нам нужно изменить размер всех изображений в MS Word, мы будем использовать макросы. Мы создаем его, написав код для изменения размера изображений. Не запутайтесь. Вот подробные шаги:

Обновление за январь 2022 года:

Теперь вы можете предотвратить проблемы с ПК с помощью этого инструмента, например, защититься от потери файлов и вредоносных программ. Кроме того, это отличный способ оптимизировать работу ПК для достижения максимальной производительности. Программа легко исправляет распространенные ошибки, которые могут возникать в системах Windows; Нет необходимости часами искать и решать проблемы, если у вас есть идеальное решение под рукой:

• Шаг 1. Загрузите средство восстановления и оптимизации ПК (Windows 10, 8, 7, XP, Vista — Microsoft Gold Certified).
• Шаг 2. Нажмите «Начать сканирование», чтобы найти проблемы реестра Windows, которые могут вызывать проблемы с вашим ПК.
• Шаг 3 — Нажмите «Исправить все», чтобы исправить все проблемы.

Шаг 1. Откройте файл Word, в котором вы хотите, чтобы все изображения были одинакового размера.

Шаг 2: Нажмите на первую фотографию в файле, чтобы выбрать ее. Затем нажмите на вкладку «Просмотр» вверху.

Шаг 3: Нажмите «Макросы.

Шаг 4: Откроется всплывающее окно. Введите имя в поле под именем макроса. Вы можете дать ему имя по вашему выбору. Для лучшего понимания мы будем называть это изменением размера.

Затем нажмите Создать.

Шаг 5: Откроется новое окно Microsoft Visual Basic для приложений. Выберите существующий код и удалите его.

Шаг 6 — Затем скопируйте один из следующих кодов и вставьте его в окно.

Тип A: используйте следующий код, если вы хотите изменить высоту и ширину в пикселях. Замените 500 и 600 своими значениями.

Sub resize() Dim i всегда с ActiveDocument For i = 1 For .InlineShapes.Count С .InlineShapes(i) .Height = 500 .Width = 600 End With Next i End With Sub End

Тип B: используйте этот параметр, если хотите изменить размер в дюймах. Замените 2 своим значением.

Sub resize() Dim i всегда с ActiveDocument For i = 1 To .InlineShapes.Count С .InlineShapes (i) .Height = дюймы в точках (2) .Width = дюймы в точках (2) End with Next i End with End Sub

Введите C: если вы хотите масштабировать изображения, следующий код поможет вам заменить 30 и 40 на ваши предпочтительные значения.

Sub resize() Dim i As Long с ActiveDocument для i = 1 до .InlineShapes.Count с .InlineShapes(i) .ScaleHeight = 30 .ScaleWidth = 40 End next i End with End Sub

Шаг 7. После копирования закройте окно Microsoft Visual Basic для приложений, щелкнув значок крестика.

Шаг 8. Выбрав изображение, снова нажмите «Макросы» на вкладке «Вид».

Шаг 9: Откроется окно макросов. Щелкните Запустить с выбранным макросом.

Как только вы нажмете кнопку «Выполнить», вы заметите, что размер изменится для всех изображений.
СОВЕТ СОТРУДНИКОВ: Если у вас возникли проблемы с компьютером, нажмите здесь, чтобы исправить ошибки Windows и оптимизировать производительность системы.

Когда мы копируем или импортируем изображения из Интернета или других файлов, размер изображений может быть различным. Все знают, как изменять размер изображений одно за другим, но если мы хотим изменить их размер до одного и того же размера сразу, как мы можем это сделать? Этот урок покажет вам несколько методов изменения размера изображений.

Изменение размера изображений вручную в Word

Изменение размера изображений с помощью VBA

Измените размер нескольких изображений одновременно с помощью Kutools for Word

Изменение размера изображений вручную в Word

1. Чтобы показать ручки изменения размера изображения, щелкнув по изображению;

2. Поместите курсор на один из маркеров размера изображения.

3. Перетаскивайте маркер изменения размера, пока размер изображения не станет подходящим для ваших нужд. Смотрите скриншот:

Внимание: С помощью этого метода вы не можете изменить размер сразу нескольких изображений. Вам нужно изменять их размер один за другим, пока не будут изменены все изображения.

Изменение размера изображений с помощью VBA

С помощью следующего кода VBA вы можете изменить размер изображений до идеального. Вы можете сделать это следующим образом ：

В этом примере мы изменяем размер изображения до 1.78 дюйма в высоту и 3.17 дюйма в ширину.

1. Выберите картинку, размер которой хотите изменить;

2, нажмите Alt + F11 для открытия Microsoft Visual Basic для приложений окно;

3. Нажмите Модули от Вставить вкладку, скопируйте и вставьте следующий код 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. Нажмите Run или F5 ключ для запуска кода VBA, и размер выбранного изображения был изменен до необходимого вам размера.

Внимание: В приведенном выше коде  В shp.Height = InchesToPoints (1.78) и shp.Width = InchesToPoints (3.17) высота и ширина изображения, вы можете изменить размер в соответствии с вашими потребностями.

С помощью этого кода VBA вы также не можете изменить размер всего или нескольких изображений одновременно. Вам нужно переходить между документом Word и Microsoft Visual Basic для приложений окно для выбора изображения и применения кода. Это слишком много времени.

Изменение размера изображений с помощью Kutools for Word

Работы С Нами Kutools for Word’s Изменение размера изображений Утилита, вы можете избавиться от этих надоедливых и трудоемких операций и быстро изменить размер всех изображений в документе.

1. Пожалуйста, примените эту утилиту, нажав Кутулс Плюс > Изменение размера. Смотрите скриншот:

2. Если вы хотите изменить размер всех изображений до определенного процента от их исходного размера, выберите один из шести процентов в раскрывающемся списке. Например, если вы хотите изменить размер всех изображений до 50% от их исходного размера, выберите 50%. После нажатия 25%, вы увидите, что все изображения были увеличены до 50%. Смотрите скриншот:

Если вы хотите настроить все изображения на одинаковый размер с выбранным, выберите изображение в качестве размера модели, а затем нажмите Кутулс Плюс > Изменение размера > Изменение размера изображений с выделением, и все изображения будут иметь одинаковый размер в зависимости от выбранного, см. снимок экрана:

Для получения более подробной информации о Kutools for WordАвтора Изменение размера изображений утилита, нажмите здесь.

Нажмите, чтобы скачать Kutools for Word и бесплатная пробная версия прямо сейчас!

Демо: изменение размера всех изображений сразу в Word

Создание документа Microsoft Word нередко предполагает вставку в него изображений, которые могут быть как подготовленными, так и неподготовлеными, в смысле имеющими разный размер. Чтобы документ выглядел опрятно, вставляемые в него картинки желательно привести к некоему общему знаменателю, например, отмасштабировать или изменить размер по ширине. Если изображений много и задавать им нужный размер в графическом редакторе нет особого желания, вставляйте их в Word в исходном виде.

А остальную работу перепоручите скрипту.

Да, масштабировать изображения и подгонять их под нужный размер можно с помощью макросов на языке VBS, причем за один раз можно обработать сколько угодно картинок, сэкономив таким образом массу времени.

Предположим, вы хотите, чтобы все вставленные в документ картинки имели размер 300 пикселей по ширине.

Откройте ваш Word-документ и нажмите Alt + F11, чтобы вызвать окно редактора Microsoft Visual Basic for Applications и выберите в меню «Insert» -> «Module».

В открывшемся окошке вставьте код из приложенного в конце инструкции текстового файла, смотрите блок «Изменение размера». Измените значение переменной .Width на 300, а строку .Height уберите вовсе, так как при изменении ширины высота будет изменена автоматически пропорционально.

Запустите скрипт на исполнение нажатием кнопки Run или клавиши F5.

Следующий скрипт позволяет масштабировать вставленные изображения: точно так же замените в нем значение параметра .ScaleWidth на свое, что же касается параметра .ScaleHeight , то его можно удалить.

Похожую работу выполняет этот скрипт, позволяющий установить масштабирование в диалоговом окошке, появляющемся сразу после запуска на исполнение.

Файл с кодом макросов:

Macros

1

04.04.2022, 00:00. Показов 1746. Ответов 5

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Sub ShowFileDialog()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выбор фотографий"
        .Filters.Add "Изображения", "*.jpg; *.jpeg"
        .AllowMultiSelect = True
        If .Show = -1 Then
            InsertPhotos .SelectedItems
        End If
    End With
 
End Sub
 
Sub InsertPhotos(ByVal items As Variant)
    Dim fileName As Variant
    Dim pic As InlineShape
    WidthSize = InputBox("Введите высоту картинок в сантиметрах", "Высота", 9)
    HeightSize = InputBox("Введите ширину картинок в сантиметрах", "Ширина", 6.8)
    For Each fileName In items
        'Вставка изображения
        Set pic = Range.InlineShapes.AddPicture(fileName)
        With pic
            .Width = CentimetersToPoints(WidthSize)
            .Height = CentimetersToPoints(HeightSize)
        End With
    Next
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

'Выбор файла
Sub ShowFileDialog()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выбор фотографий"
        .Filters.Add "Изображения", "*.jpg; *.jpeg"
        .AllowMultiSelect = True
        If .Show = -1 Then
            InsertPhotos .SelectedItems
        End If
    End With
 
End Sub
 
'Вставка фотографий
Sub InsertPhotos(ByVal items As Variant)
    Dim fileName As Variant
    Dim counter As Integer, row As Long, col As Long
    counter = 1: row = 1: col = 1
    Dim oTbl As Table
    Dim pic As InlineShape
    'Параметры страницы
    With ActiveDocument.PageSetup
        .TopMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
    End With
    'Таблица с невидимыми границами для размещения фотографий
    Set oTbl = ActiveDocument.Tables.Add(Selection.Range, 2, 2)
    oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    oTbl.Range.ParagraphFormat.SpaceAfter = 12
    FormatTableRow oTbl, row
    
    'Перебор выбранных файлов
    For Each fileName In items
        If (counter > 2) And (counter Mod 2 <> 0) Then
            oTbl.Rows.Add
            oTbl.Rows.Add
            col = 1
            row = row + 2
            FormatTableRow oTbl, row
        End If
        'Вставка изображения
        Set pic = oTbl.Cell(row, col).Range.InlineShapes.AddPicture(fileName)
        With pic
            .Width = CentimetersToPoints(9)
            .Height = CentimetersToPoints(6.8)
            With .Line
                .Style = msoLineThinThin
                .ForeColor.TintAndShade = 0
                .Weight = 2#
                .DashStyle = msoLineSolid
            End With
        End With
        'Подпись к изображению
        oTbl.Cell(row + 1, col).Range.Text = "Фото №" + CStr(counter)
        col = col + 1
        counter = counter + 1
        DoEvents
    Next
End Sub
 
'Форматирование строки для фотографий
Sub FormatTableRow(oTbl As Table, row As Long)
    With oTbl.Rows(row)
        .HeightRule = wdRowHeightAtLeast
        .Height = 0
        .Range.ParagraphFormat.SpaceAfter = 0
    End With
End Sub

0

Иван задал вопрос:

Есть документ Word с картинками (их много) и текстом. Необходимо «ужать» количество страниц. Уменьшить шрифт текста — понятно, но как уменьшить размер всех картинок одновременно, скажем, на 50%?

Сделать это можно с помощью следующего макроса:

Первый вариант:

Sub changeImages()
Dim iShape As InlineShape 
For Each iShape In ActiveDocument.InlineShapes 
  iShape.Height = iShape.Height * 0.5 
  iShape.Width = iShape.Width * 0.5 
Next iShape 
End sub

Второй вариант для объектов класса Shape или InlineShape:

Sub changeImages2()
Dim pic As Object
On Error Resume Next
For Each pic In ActiveDocument.Content.InlineShapes 
  If pic.Type = wdInlineShapePicture Then 
    pic.Height = pic.Height / 2 
    pic.Width = pic.Width / 2 
  End If 
Next 
For Each pic In ActiveDocument.Content.ShapeRange 
  If pic.Type = msoPicture Then 
    pic.Height = pic.Height / 2 
      If pic.LockAspectRatio = msoFalse Then 
        pic.Width = pic.Width / 2 
      End If 
  End If 
Next
End sub