Смотрите или слушайте фильмы в Excel, пока вы работаете в Excel:
1. В главном меню выберите Вставить-> Объект.
2. Выберите Проигрыватель Windows Media от Тип объекта коробка и нажмите ОК
3. Переместите и измените размер WMP по своему вкусу.
Примечание. Если вы не можете изменить размер объекта WMP, переключитесь в «Режим дизайна», нажав кнопку режима дизайна. 
Теперь мы добавим код, который сообщает объекту Windows Media Player, что нужно воспроизвести и какой файл воспроизводить. Откройте редактор Visual Basic (alt + F11), дважды щелкните лист, содержащий только что вставленный WMP, и вставьте следующий код:
| 12345678910 | Sub PlayMovie ()'URL - это местоположение фильма - измените соответствующим образомWindowsMediaPlayer1.URL = "C: /rb.wmv"WindowsMediaPlayer1.Controls.PlayКонец подписки |
Воспроизведите фильм так же, как если бы вы запускали макрос: Инструменты-> Макро-> Макросы
Вы также можете создать несколько ярлыков, чтобы скрыть и остановить воспроизведение фильма, если босс приближается. Добавьте следующий код под предыдущим кодом:
| 123456789101112131415161718 | Sub HideQuick ()WindowsMediaPlayer1.Visible = ЛожьWindowsMediaPlayer1.Controls.pauseКонец подпискиSub ShowQuick ()WindowsMediaPlayer1.Visible = TrueWindowsMediaPlayer1.Controls.PlayКонец подписки |
Затем добавьте ярлыки к двум макросам (Инструменты-> Макро-> Макросы-> Параметры), и у вас будет мгновенный переключатель ВКЛ / ВЫКЛ на кончиках ваших пальцев.
Примечание: Хотя смотреть фильм прямо в Excel интересно, мой любимый способ смотреть фильм во время работы - использовать автономный медиаплеер с несколькими различными настройками.
В меню «Инструменты»> «Параметры» установите флажок «Отображать сверху в режиме оформления». В меню «Вид» выберите «Режим кожи» (лучше всего подойдет небольшой скин). Переместите фильм в нижний правый или левый угол экрана.
С этой настройкой я могу работать, а также переключаться между приложениями и всегда видеть мой фильм, но не в стороне. Спасибо Kingzter.
