Я вставил элемент управления проигрывателя Windows Media в слайд, чтобы он соответствовал размеру и форме слайда. Слайд содержит другие фигуры, и когда я показываю слайд, видео воспроизводится отлично, но я хочу, чтобы другие фигуры располагались поверх встроенного элемента управления.
Это небольшая часть большой презентации, которой я должен управлять с помощью VBA (вместо простого запуска слайд-шоу), потому что мне нужно динамически изменять содержимое некоторых слайдов. Слайд со встроенным элементом управления видео отображается только при определенных обстоятельствах.
Я использую встроенный элемент управления WMP вместо встроенного видео или встроенную ссылку на видео, потому что встроенный элемент управления WMP - это единственный обнаруженный мной подход, который не приводит к зависанию видео для меня (я пробовал различные видео форматирование, сжатие, отключение аппаратного ускорения и т. д., все безрезультатно). Я встроил элемент управления, используя подход, описанный во многих местах в сети, в том числе здесь: https://smallbusiness.chron.com/insert-media-player-object-powerpoint-autostart-42163.html
Я убедился, что элемент управления WMP находится в нижней части набора объектов на панели выбора, и я даже попытался использовать ZOrder (хотя я знал, что он здесь не будет работать).
Вот минимальная иллюстрация кода для презентации с одним слайдом, которая отображает проблему:
Sub RunShowBySlide()
Dim prn As Presentation
Dim ssw As SlideShowWindow
Dim shp As Shape
Dim iSlide As Long
Set prn = ActivePresentation
prn.SlideShowSettings.Run
Set ssw = SlideShowWindows(1)
Set shp = prn.Slides(1).Shapes("WindowsMediaPlayer1")
ssw.View.GotoSlide 1
End Sub
Когда начинается слайд-шоу, элемент управления WMP находится в нижней части в течение доли секунды, затем он сверху, затем снизу, а затем снова сверху, где он остается и начинает воспроизводиться.
В настоящее время видео настроено на автоматическое воспроизведение, но если я отключу его, оно выполнит половину только что описанного нижнего / верхнего танца, а затем останется на вершине.
Пожалуйста, помогите!
РЕДАКТИРОВАТЬ: Мне пришло в голову попробовать слайд-шоу в качестве реального слайд-шоу в режиме киоска, и есть та же проблема (то есть вы можете почти игнорировать большую часть VBA моего вопроса!). Как я могу установить этот встроенный элемент управления WMP, чтобы быть сзади?
РЕДАКТИРОВАТЬ 2: Это странно: если я сохраню и закрою файл PowerPoint, а затем открою его снова, элемент управления WMP теперь на вершине !! Что происходит?