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

Вход

Регистрация

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

 

= Мир MS Excel/Вписывание определенного фрагмента картинки - в форму Image - Мир MS Excel

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

Excel 2016
Добрый день.

Помогите изменить макрос.
Макрос вписывает видео в форму - так, что виден лишь определенный фрагмент.
В форме находится mediaplayer.

Когда я пытаюсь в адресе - вместо видео поставить ссылку на jpg - то mediaplayer на форме открывает картинку, но через несколько секунд - снова закрывает.
Скажите - как произвести в точности такую же обрезку фотографии, но только не на WindowsMediaPlayer1, а на Image1 во Frame ?

(Файл 1.xls - это файл с windowsmediaplayer. Файл 2.xls - это файл с Image1 )
Сейчас получается только картинку целиком в форму вписать. Фрагмент картинки не подстраивается под форму.
[vba]
Код

Sub Открыть()
    UserForm1.Show
    UserForm1.Image1.Picture = LoadPicture(ThisWorkbook.Worksheets(1).Cells(14, 7).Text)

    With UserForm1.Image1
        w = UserForm1.Width / Range("N4")    'ширина видео
        h = UserForm1.Height / Range("O4")    'высота видео
        L = (Range("F4") - w) / 2    'левый край видео при совпадении центров
        T = (Range("G4") - h) / 2    'верхний край видео при совпадении центров
        dx = (Range("J4") - 0.5) * w    'смещение от центра по х
        dy = (Range("K4") - 0.5) * h    'смещение от центра по у
        .Width = w
        .Height = h
        .Left = L + dx
        .Top = T + dy
    End With
End Sub
[/vba]
К сообщению приложен файл: 2012281.xls(78.5 Kb) · 5395195.xls(89.0 Kb)


Сообщение отредактировал SkyGreen - Четверг, 27.06.2019, 04:12
 
Ответить
СообщениеДобрый день.

Помогите изменить макрос.
Макрос вписывает видео в форму - так, что виден лишь определенный фрагмент.
В форме находится mediaplayer.

Когда я пытаюсь в адресе - вместо видео поставить ссылку на jpg - то mediaplayer на форме открывает картинку, но через несколько секунд - снова закрывает.
Скажите - как произвести в точности такую же обрезку фотографии, но только не на WindowsMediaPlayer1, а на Image1 во Frame ?

(Файл 1.xls - это файл с windowsmediaplayer. Файл 2.xls - это файл с Image1 )
Сейчас получается только картинку целиком в форму вписать. Фрагмент картинки не подстраивается под форму.
[vba]
Код

Sub Открыть()
    UserForm1.Show
    UserForm1.Image1.Picture = LoadPicture(ThisWorkbook.Worksheets(1).Cells(14, 7).Text)

    With UserForm1.Image1
        w = UserForm1.Width / Range("N4")    'ширина видео
        h = UserForm1.Height / Range("O4")    'высота видео
        L = (Range("F4") - w) / 2    'левый край видео при совпадении центров
        T = (Range("G4") - h) / 2    'верхний край видео при совпадении центров
        dx = (Range("J4") - 0.5) * w    'смещение от центра по х
        dy = (Range("K4") - 0.5) * h    'смещение от центра по у
        .Width = w
        .Height = h
        .Left = L + dx
        .Top = T + dy
    End With
End Sub
[/vba]

Автор - SkyGreen
Дата добавления - 27.06.2019 в 04:08
Pelena Дата: Четверг, 27.06.2019, 11:52 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14216
Репутация: 3106 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так проверьте
К сообщению приложен файл: 4139972.xls(91.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак проверьте

Автор - Pelena
Дата добавления - 27.06.2019 в 11:52
SkyGreen Дата: Пятница, 28.06.2019, 06:53 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, спасибо вам большое.
 
Ответить
СообщениеPelena, спасибо вам большое.

Автор - SkyGreen
Дата добавления - 28.06.2019 в 06:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вписывание определенного фрагмента картинки - в форму Image (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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