Вписывание видеофрагмента в форму.

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

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

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

SkyGreen

Дата: Воскресенье, 28.04.2019, 07:25 | Сообщение № 1

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

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

Сообщений: 83

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

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

Excel 2016

Добрый день, уважаемые форумчане. Помогите разобраться с макросом.

Макрос - вставляет на форму видео по ссылке.
Выглядит код формы - вот так:
[vba]

Код

Private Sub WindowsMediaPlayer1_StatusChange()
UserForm2.WindowsMediaPlayer1.settings.mute = True
On Error Resume Next
  With UserForm2.WindowsMediaPlayer1

    UserForm2.WindowsMediaPlayer1.Left = 0
    UserForm2.WindowsMediaPlayer1.Top = 0
    UserForm2.WindowsMediaPlayer1.Width = UserForm2.Width
    UserForm2.WindowsMediaPlayer1.Height = UserForm2.Height ' - 10
    UserForm2.WindowsMediaPlayer1.volume = 0

  End With
End Sub

[/vba]
Но нужно как-то расположить на форме не все видео, а только фрагмент из него.

На самом листе в ячейках F4 и G4 - представлены Высота-Ширина формы.
В ячейках J4 и K4 - представлены координаты центра фрагмента.
В ячейках N4 и O4 - представлены дробями- примерная ширина-высота фрагмента (по отношению к общей ширине и высоте формы).

В общем, для того чтобы нужный фрагмент - более-менее вписался в форму - это видео надо как-то растянуть и выбрать начальную координату размещения этого видео. (Эта координата - будет выходить за левый верхний край формы).
В общем получится что-то навроде такого кода.

[vba]

Код

Private Sub WindowsMediaPlayer1_StatusChange()
UserForm2.WindowsMediaPlayer1.settings.mute = True
On Error Resume Next
  With UserForm2.WindowsMediaPlayer1

    UserForm2.WindowsMediaPlayer1.Left = -700
    UserForm2.WindowsMediaPlayer1.Top = -700
    UserForm2.WindowsMediaPlayer1.Width = UserForm2.Width * 5
    UserForm2.WindowsMediaPlayer1.Height = UserForm2.Height * 5 ' - 10
    UserForm2.WindowsMediaPlayer1.volume = 0

  End With
End Sub

[/vba]
То есть начальная координата размещения в форме - будет сдвинута. А размер самого видео - будет увеличен.
И таким образом - можно добиться вписывание видео фрагмента - в форму.

Но вот только как макросом - правильно подобрать эти пропорции - я не понимаю.
Посоветуйте - как это сделать ?

Код

Private Sub WindowsMediaPlayer1_StatusChange()
UserForm2.WindowsMediaPlayer1.settings.mute = True
On Error Resume Next
  With UserForm2.WindowsMediaPlayer1

    UserForm2.WindowsMediaPlayer1.Left = -700
    UserForm2.WindowsMediaPlayer1.Top = -700
    UserForm2.WindowsMediaPlayer1.Width = UserForm2.Width * 5
    UserForm2.WindowsMediaPlayer1.Height = UserForm2.Height * 5 ' - 10
    UserForm2.WindowsMediaPlayer1.volume = 0

  End With
End Sub

К сообщению приложен файл: 453452.xlsb (70.3 Kb)