Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   Выделить все отсканированные фотографии в документе, и задать единый размер (http://forum.oszone.net/showthread.php?t=345476)

Ser0216 08-06-2020 16:12 2924425
Выделить все отсканированные фотографии в документе, и задать единый размер
 
Вложений: 1
Здравствуйте. Испытываю трудности в выделении отсканированных фотографий из книги в документе word, чтобы задать им единый размер, и насыщенность цвета. Пробовал зажимать клавиши shift, alt, а также ctrl+A, но безуспешно. Прошу мне помочь мне с этой проблемой. Заранее благодарен.

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

Iska 08-06-2020 20:35 2924452
Цитата:
Цитата Ser0216
Испытываю трудности в выделении отсканированных фотографий из книги в документе word, чтобы задать им единый размер, и насыщенность цвета. »
1. Макросом.
2. Только все картинки зараз, ибо нет способа программно отделить «отсканированные фотографии» от не отсканированных не фотографий.
3. Какой размер и какая «насыщенность цвета»?

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

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

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

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

Iska 09-06-2020 01:14 2924482
Двадцать мегабайт превратились в пятьсот. Затруднит.

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

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

Iska 09-06-2020 18:50 2924543
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 09-06-2020 20:48 2924550
Вложений: 1
Вставил этот код, прикрепил скрин того что у меня вышло.
Загуглид данную ошибку, вот что выдало:
https://docs.microsoft.com/ru-ru/off...mediate-window

Iska 09-06-2020 22:43 2924560
Цитата:
Цитата Ser0216
Вставил этот код, »
…не туда. См.:
Цитата:
Цитата Iska
в модуль ThisDocument Вашего документа »
а не в окно Immediate. Сделайте двойной щелчок на ThisDocument.

Iska 12-06-2020 20:47 2924848
Ser0216, Вы можете в своей версии, где есть настройки:
Цитата:
Цитата Ser0216
резкость (пардон, а не насыщенность): повысить до 50%. »
записать макрос на изменение сего, найти в записанном макросе потребный код и, взяв из него искомое, добавить у себя в выложенный мною.


Время: 20:26.

Время: 20:26.
© OSzone.net 2001-