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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вписывание определенного фрагмента картинки - в форму Image (Макросы/Sub)

SkyGreen

Дата: Четверг, 27.06.2019, 04:08 | Сообщение № 1

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

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

Сообщений: 83

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

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

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]

Код