Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос неточно выполняет обрезку фото - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос неточно выполняет обрезку фото (Макросы/Sub)
Макрос неточно выполняет обрезку фото
SkyGreen Дата: Воскресенье, 31.03.2019, 21:41 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Подскажите - как поправить макрос, чтобы он вырезал область - в заданном в ячейках E12 и F12 - процентном соотношении, а не в виде точки ?
К сообщению приложен файл: 4565.xlsm(26.1 Kb)
 
Ответить
СообщениеДобрый вечер.

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

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

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

Автор - SkyGreen
Дата добавления - 31.03.2019 в 21:41
bmv98rus Дата: Воскресенье, 31.03.2019, 21:56 | Сообщение № 2
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2629
Репутация: 451 ±
Замечаний: 0% ±

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


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеSkyGreen, Не точно - это когда близко но не так как надо , а когда совсем не так как надо, то это ….
А чем прошлая тема не устроила?

Автор - bmv98rus
Дата добавления - 31.03.2019 в 21:56
SkyGreen Дата: Воскресенье, 31.03.2019, 22:13 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - SkyGreen
Дата добавления - 31.03.2019 в 22:13
bmv98rus Дата: Воскресенье, 31.03.2019, 22:39 | Сообщение № 4
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2629
Репутация: 451 ±
Замечаний: 0% ±

Excel 2013/2016
Добавьте одну строку
[vba]
Код
    CropSizeY = PHeight * [F12]
    .LockAspectRatio = msoFalse            '<===== Эту
    With .PictureFormat
[/vba]

Потом можно вернуть обратно
[vba]
Код
    .LockAspectRatio = msoTrue
[/vba]


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеДобавьте одну строку
[vba]
Код
    CropSizeY = PHeight * [F12]
    .LockAspectRatio = msoFalse            '<===== Эту
    With .PictureFormat
[/vba]

Потом можно вернуть обратно
[vba]
Код
    .LockAspectRatio = msoTrue
[/vba]

Автор - bmv98rus
Дата добавления - 31.03.2019 в 22:39
SkyGreen Дата: Воскресенье, 31.03.2019, 22:44 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, нет - что-то все равно не работает и по-прежнему сжимает вырезанную область в одну точку.
К сообщению приложен файл: 2655172.xlsm(26.1 Kb)
 
Ответить
Сообщениеbmv98rus, нет - что-то все равно не работает и по-прежнему сжимает вырезанную область в одну точку.

Автор - SkyGreen
Дата добавления - 31.03.2019 в 22:44
bmv98rus Дата: Воскресенье, 31.03.2019, 23:02 | Сообщение № 6
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2629
Репутация: 451 ±
Замечаний: 0% ±

Excel 2013/2016
А так?
К сообщению приложен файл: Copy_of_779.xlsm(26.3 Kb)


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеА так?

Автор - bmv98rus
Дата добавления - 31.03.2019 в 23:02
SkyGreen Дата: Воскресенье, 31.03.2019, 23:14 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

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

Прикрепляю файл.
К сообщению приложен файл: Copy_of_779-2-.xlsm(24.9 Kb)
 
Ответить
Сообщениеbmv98rus, вот запускаю этот макрос - щелчком по кнопке.
И он вместо вырезания области - сводит эту область к точке.

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

Автор - SkyGreen
Дата добавления - 31.03.2019 в 23:14
bmv98rus Дата: Понедельник, 01.04.2019, 07:38 | Сообщение № 8
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2629
Репутация: 451 ±
Замечаний: 0% ±

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


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеSkyGreen, Все правильно, при масштабировании картинки нужно это учитывать. Надо смотреть, считать.

Автор - bmv98rus
Дата добавления - 01.04.2019 в 07:38
SkyGreen Дата: Понедельник, 01.04.2019, 11:37 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - SkyGreen
Дата добавления - 01.04.2019 в 11:37
bmv98rus Дата: Понедельник, 01.04.2019, 12:27 | Сообщение № 10
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2629
Репутация: 451 ±
Замечаний: 0% ±

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


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

Автор - bmv98rus
Дата добавления - 01.04.2019 в 12:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос неточно выполняет обрезку фото (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!