Домашняя страница 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
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2275
Репутация: 399 ±
Замечаний: 20% ±

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


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

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

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

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

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

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

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
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

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

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

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


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

Автор - bmv98rus
Дата добавления - 31.03.2019 в 23:02
SkyGreen Дата: Воскресенье, 31.03.2019, 23:14 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2275
Репутация: 399 ±
Замечаний: 20% ±

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


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

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

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

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

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 обязательна!