Как автоматически растянуть картинку на всю страницу

[nark]

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

[Казанский]

Картинки уже в документе?
Если нет - все картинки из какой-то папки должны быть в одном документе или каждая в отдельном документе?

[nark]

картинки в папке, необходимо чтобы все были в 1-ом документе

[nark]

да, кстати, я так понимаю растянуть картинку можно выбрав: правый клик на мышке-> размер и положение-> размер-> и тут выбирать ширина и высота относительно, но поставить галочку на "относительно" я не могу, эта галочку недоступна. работаю в Word 2010

[Казанский]

Пробуйте. До или после запуска макроса установите максимально узкие поля.

Sub Макрос1()
Const P = "c:\temp\"    'путь к папке с картинками
Dim s$, h, w, n&
h = Application.CentimetersToPoints(27) 'высота в см
w = Application.CentimetersToPoints(19) 'ширина в см
s = Dir(P & "*.jpg")
Do While s <> ""
    Selection.InlineShapes.AddPicture FileName:= _
        P & s, LinkToFile:=False, SaveWithDocument:=True
    n = n + 1
    With ActiveDocument.InlineShapes(n)
        .Height = h
        .Width = w
    End With
    s = Dir
Loop
End Sub

[Пименов Александр]

Сообщение от Казанский

Пробуйте. До или после запуска макроса установите максимально узкие поля

В вашем коде тогда должно быт так:
h = Selection.PageSetup.PageHeight
w = Selection.PageSetup.PageWidth
Тогда ширина и высота будут устанавливаться согласно ширине и высоте страницы где находится выделение......

[nark]

Спасибо Вам, Казанский, Пименов Александр, за помощь