Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как убрать из окна медиаплеера встроенного в эксель - поле с кнопками ?
 
Здравствуйте, друзья.

Есть вот такой макрос.
Он вставляет Медиаплеер в любое место листа и начинает проигрывать его по ссылке из ячейки.
Посоветуйте - как убрать из она медиаплеера - вот это поле с кнопками ?
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim iFileName$: iFileName = Target(1).Text
    If iFileName = "" Then Exit Sub
    
    If Dir(iFileName) <> "" Then
       With WindowsMediaPlayer1
            .Left = Target.Left
            .Top = Target(2).Top
            .URL = iFileName
       End With
    End If
End Sub
Код
Public x As Long
Public y As Long
Public lll
Public ttt
Public zzz As String

Sub Vstavka()
On Error Resume Next
Sheets(1).Shapes.AddPicture _
        Filename:=zzz, _
        linktofile:=msoFalse, _
        savewithdocument:=msoCTrue, _
        Left:=lll, _
        Top:=ttt + 12.75, _
        Width:=300, _
        Height:=200
End Sub
Страницы: 1
Читают тему (гостей: 1)
Наверх