Макрос неточно выполняет обрезку фото

Дата: Воскресенье, 31.03.2019, 21:41 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Добрый вечер.

Помогите разобраться с макросом по обрезке фото на листе.
Макрос вроде бы должен совершить обрезку картинки - по определенным пропорциям.
Размер области после вырезки - это 35 % от полной ширины и 28% от полной высоты.

Но вместо этого - макрос обрезает рисунок - буквально до размеров точки.

Подскажите - как поправить макрос, чтобы он вырезал область - в заданном в ячейках E12 и F12 - процентном соотношении, а не в виде точки ?

К сообщению приложен файл: 4565.xlsm (26.1 Kb)

Дата: Воскресенье, 31.03.2019, 21:56 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

SkyGreen, Не точно - это когда близко но не так как надо , а когда совсем не так как надо, то это ….
А чем прошлая тема не устроила?

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Дата: Воскресенье, 31.03.2019, 22:13 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

bmv98rus, так вот - это - тот же самый макрос.
Но только он - в данном случае (в прикрепленном файле) - сжимает вырезанную область - почти в точку.

То есть проводит обрезку - но она получается не соответствующей заданным параметрам - то есть очень маленькой (практически почти как точка).

Дата: Воскресенье, 31.03.2019, 22:39 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Добавьте одну строку
[vba]

Код

    CropSizeY = PHeight * [F12]
    .LockAspectRatio = msoFalse            '<===== Эту
    With .PictureFormat

[/vba]

Потом можно вернуть обратно
[vba]

Код

.LockAspectRatio = msoTrue

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Дата: Воскресенье, 31.03.2019, 22:44 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

bmv98rus, нет - что-то все равно не работает и по-прежнему сжимает вырезанную область в одну точку.

К сообщению приложен файл: 2655172.xlsm (26.1 Kb)

Дата: Воскресенье, 31.03.2019, 23:02 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

А так?

К сообщению приложен файл: Copy_of_779.xlsm (26.3 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Дата: Воскресенье, 31.03.2019, 23:14 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

bmv98rus, вот запускаю этот макрос - щелчком по кнопке.
И он вместо вырезания области - сводит эту область к точке.

Прикрепляю файл.

К сообщению приложен файл: Copy_of_779-2-.xlsm (24.9 Kb)

Дата: Понедельник, 01.04.2019, 07:38 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

SkyGreen, Все правильно, при масштабировании картинки нужно это учитывать. Надо смотреть, считать.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Дата: Понедельник, 01.04.2019, 11:37 | Сообщение № 9

Группа: Пользователи

Ранг: Участник

Сообщений: 83

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

bmv98rus, вот я и писал первое сообщение, спрашивая - как это сделать, как поправить макрос, чтобы он вырезал область - в заданном в ячейках E12 и F12 - процентном соотношении, а не в виде точки.

Дата: Понедельник, 01.04.2019, 12:27 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

SkyGreen, Вы не поняли. У вас уже масштабированная картинка, которую надо обрезать. и именно этот масштаб надо учитывать, а не E12 и F12, которые задают размер "окна". Если вернуть оригинальный размер картинки то все работает корректно. Будет возможность посмотрю.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.