Отключение: Win 7, Excel 2007 (с обновлениями). Воспроизведение только аудио.
медиаплеер (элемент управления VBA) откроется с заданной шириной, но как только он начнет воспроизведение, вернется к своим собственным размерам. С таймером, установленным на 1 секунду, мой VBA пытается снова установить ширину (и делает это снова через секунду), но ширина плеера в конечном итоге устанавливается по умолчанию. И хотя в конечном итоге это может сработать один раз - после запуска проигрывателя любое изменение аудиофайла или перезапуск ширины возвращается к значению по умолчанию.
Настройка проигрывателя на автозапуск = False не улучшает ситуацию.
TIA Mr Red
PS целевой системой, вероятно, является Win10 и определенно Office 365.
PauseTime = 1 был увеличен до 2+, который теперь работает большую часть времени. Проблема решена, потому что вина лежит за пределами VBA. Задержка включения внешних дисков, которые в целевой системе на данный момент неизвестны.
playaudio.Visible = True
playaudio.URL = isfile 'player object - auto-start
PauseTime = 1 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
playaudio.Width = 580
playfilecap '.Caption = "Length - " & playaudio.currentMedia.durationString