Красноглазый Пиркаф,
Пример приложить не могу,
Файл приложить не могу
....
Не могу.
Нек могу
Пример приложить не могу,
Файл приложить не могу
....
Не могу.
Нек могу
Код |
---|
Sub play(strFile As String) With Sheet1.WindowsMediaPlayer1 .AutoLoad = False .Visible = False .windowlessVideo = True If strFile = "" Then .Controls.stop Else .URL = strFile .Controls.play End If End With End Sub Sub PlayAO1() Call play(Range("AO1")) End Sub |
По вопросам из тем форума, личку не читаю.