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 с картинками (их много) и текстом. Необходимо «ужать» количество страниц. Уменьшить шрифт текста — понятно, но как уменьшить размер всех картинок одновременно, скажем, на 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

Создание документа 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. Показов 1740. Ответов 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