Выделить все отсканированные фотографии в документе, и задать единый размер

[Ser0216]

Здравствуйте. Испытываю трудности в выделении отсканированных фотографий из книги в документе word, чтобы задать им единый размер, и насыщенность цвета. Пробовал зажимать клавиши shift, alt, а также ctrl+A, но безуспешно. Прошу мне помочь мне с этой проблемой. Заранее благодарен.

P.S. не могу загрузить сам документ, так как весит около 20мб.
В вордовском документе всего 550стр-фотографий.

[Iska]

Испытываю трудности в выделении отсканированных фотографий из книги в документе word, чтобы задать им единый размер, и насыщенность цвета. »
1. Макросом.
2. Только все картинки зараз, ибо нет способа программно отделить «отсканированные фотографии» от не отсканированных не фотографий.
3. Какой размер и какая «насыщенность цвета»?

P.S. не могу загрузить сам документ, так как весит около 20мб. »
На вменяемый обменник выложите.

[Ser0216]

1. Ага, ясно, значит нужно прописать алгоритм.
2. Да все картинки разом, в этом документе только отсканированные фотографии
3. Размеры: высота: 29,47 см, ширина: 22 см; резкость (пардон, а не насыщенность): повысить до 50%.

P.S. так как формат изображений png, размер оказался довольно большим - 516мб.
Ccылка на документ: https://mega.dp.ua/ru/VPSXY (срок хранения до 16.06.20)

После поправок, пожалуйста, если Вас не затруднит, сохраните в формате Pdf.

[Iska]

Двадцать мегабайт превратились в пятьсот. Затруднит.

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

[Ser0216]

Сделал, как вы и просили.
вот ссылка: https://mega.dp.ua/ru/EMAy26

[Iska]

Ser0216, вставьте в модуль ThisDocument Вашего документа и выполните следующий код:
Option Explicit

Sub Sample()
Dim objInlineShape As InlineShape

For Each objInlineShape In ThisDocument.InlineShapes
With objInlineShape
.Height = MillimetersToPoints(294.7)
.Width = MillimetersToPoints(220)
End With
Next objInlineShape
End Sub

Резкости в моей версии нет, увы. Только яркость и контрастность.

[Ser0216]

Вставил этот код, прикрепил скрин того что у меня вышло.
Загуглид данную ошибку, вот что выдало:
https://docs.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/invalid-in-immediate-window

[Iska]

Вставил этот код, »
…не туда. См.:
в модуль ThisDocument Вашего документа »
а не в окно Immediate. Сделайте двойной щелчок на ThisDocument.

[Iska]

Ser0216, Вы можете в своей версии, где есть настройки:
резкость (пардон, а не насыщенность): повысить до 50%. »
записать макрос на изменение сего, найти в записанном макросе потребный код и, взяв из него искомое, добавить у себя в выложенный мною.