Oglądaj lub słuchaj filmów w programie Excel podczas pracy w programie Excel:
1. W menu głównym kliknij Wstaw->Obiekt
2. Wybierz Windows Media Player od Rodzaj obiektu i naciśnij OK
3. Przenieś i zmień rozmiar WMP według własnych upodobań
Uwaga: Jeśli nie możesz zmienić rozmiaru obiektu WMP, przełącz się na „Tryb projektowania”, klikając przycisk trybu projektowania
Teraz dodamy trochę kodu, aby powiedzieć obiektowi Windows Media Player, aby odtwarzał i jaki plik ma zostać odtworzony. Otwórz Edytor Visual Basic (alt + F11), kliknij dwukrotnie arkusz roboczy zawierający właśnie wstawiony WMP i wklej następujący kod:
12345678910 | Sub PlayFilm()„URL to lokalizacja filmu – zmień odpowiednio”WindowsMediaPlayer1.URL = "C:/rb.wmv"WindowsMediaPlayer1.Controls.PlayNapis końcowy |
Odtwórz film tak, jak uruchamiasz makro: Narzędzia->Makro->Makra
Możesz także utworzyć kilka skrótów do Ukryj i przestań odtwarzać film, jeśli boss się zbliży. Dodaj następujący kod poniżej poprzedniego kodu:
123456789101112131415161718 | Sub UkryjSzybko()WindowsMediaPlayer1. Widoczny = FałszWindowsMediaPlayer1.Controls.pauseNapis końcowySub ShowQuick()WindowsMediaPlayer1. Widoczny = PrawdaWindowsMediaPlayer1.Controls.PlayNapis końcowy |
Następnie dodaj skróty do 2 makr (Narzędzia->Makro->Makra->Opcje) i masz natychmiastowy przełącznik ON/OFF na wyciągnięcie ręki.
Dygresja: O ile oglądanie filmu bezpośrednio w programie Excel jest interesujące, moim ulubionym sposobem oglądania filmu podczas pracy jest samodzielny odtwarzacz multimedialny z kilkoma różnymi zestawami opcji.
Z menu Narzędzia->Opcje zaznacz pole „Wyświetlaj na wierzchu w trybie skóry”. Z menu Widok wybierz „Tryb skóry” (najlepiej działa mała skórka). Przenieś swój film do prawego lub lewego dolnego rogu ekranu.
Dzięki tej konfiguracji mogę pracować, a także przełączać się między aplikacjami, a mój film jest zawsze widoczny, ale nie przeszkadza. Dzięki Kingzterowi.