Переглядайте або слухайте фільми в Excel під час роботи в Excel:
1. У головному меню натисніть Вставити-> Об’єкт
2. Виберіть Windows Media Player від Тип об’єкта і натисніть OK
3. Перемістіть та змініть розмір WMP на свій смак
Примітка: Якщо ви не можете змінити розмір об’єкта WMP, перейдіть до “Режиму проектування”, натиснувши кнопку режиму проектування
Тепер ми додамо код, щоб повідомити об’єкту програвача Windows Media грати та який файл відтворювати. Відкрийте редактор Visual Basic (alt+F11), двічі клацніть аркуш, який містить щойно вставлений WMP, і вставте наступний код:
12345678910 | Додатковий PlayMovie ()'URL - це місце розташування фільму - змініть відповідним чиномWindowsMediaPlayer1.URL = "C: /rb.wmv"WindowsMediaPlayer1.Контроль. ГраEnd Sub |
Відтворюйте фільм так само, як і запустити макрос: Інструменти-> Макро-> Макроси
Ви також можете створити пару ярликів, щоб приховати та зупинити відтворення фільму, якщо підходить начальник. Додайте наступний код під попереднім кодом:
123456789101112131415161718 | Sub HideQuick ()WindowsMediaPlayer1.Visible = НеправдаWindowsMediaPlayer1.Контроль. ПаузаEnd SubSub ShowQuick ()WindowsMediaPlayer1.Visible = ПравдаWindowsMediaPlayer1.Контроль. ГраEnd Sub |
Далі додайте ярлики до 2 макросів (Інструменти-> Макро-> Макроси-> Параметри), і у вас під рукою буде миттєвий перемикач УВІМК./ВИКЛ.
SideNote: Перегляд фільму безпосередньо в Excel цікавий, мій улюблений спосіб перегляду фільму під час роботи - використання автономного медіапрогравача з кількома різними параметрами.
У меню Інструменти-> Параметри встановіть прапорець «Відображати зверху в режимі обшивки». У меню «Вигляд» виберіть «Режим шкіри» (найкраще працює невелика шкіра). Перемістіть свій фільм унизу праворуч або ліворуч на екрані.
За допомогою цього налаштування я можу працювати, а також перемикатися між програмами і завжди бачити свій фільм, але не в дорозі. Завдяки Kingzter.