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

[Ser0216]

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



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

В вордовском документе всего 550стр-фотографий.

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

[Iska]

Цитата Ser0216:



Испытываю трудности в выделении отсканированных фотографий из книги в документе word, чтобы задать им единый размер, и насыщенность цвета.

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

1. Макросом.

2. Только все картинки зараз, ибо нет способа программно отделить «отсканированные фотографии» от не отсканированных не фотографий.

3. Какой размер и какая «насыщенность цвета»?




Цитата Ser0216:



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

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

На вменяемый обменник выложите.

[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

[Ser0216]

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



Скрытый текст

[spoiler]Код:

[/spoiler]

Код: Выделить всё

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/off...mediate-window

Вложения

[Расширение png было запрещено, вложение больше недоступно.]

[Iska]

Цитата Ser0216:



Вставил этот код,

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

…не туда. См.:


Цитата Iska:



в модуль ThisDocument Вашего документа

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

а не в окно Immediate. Сделайте двойной щелчок на ThisDocument.

[Iska]

Ser0216, Вы можете в своей версии, где есть настройки:


Цитата Ser0216:



резкость (пардон, а не насыщенность): повысить до 50%.

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

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