Gledajte ili slušajte filmove u Excelu dok radite u Excelu:
1. Na glavnom izborniku kliknite Umetni-> Objekt
2. Odaberite Windows Media Player od Vrsta objekta okvir i pritisnite OK
3. Premjestite i promijenite veličinu WMP -a po svom ukusu
Napomena: Ako ne možete promijeniti veličinu WMP objekta, prebacite se na "Način dizajna" klikom na gumb načina dizajna
Sada ćemo dodati kôd koji će objektu Windows Media Player reći da se reproducira i koju datoteku reproducirati. Otvorite uređivač Visual Basic (alt+F11), dvaput kliknite radni list koji sadrži WMP koji ste upravo umetnuli i zalijepite sljedeći kod:
12345678910 | Sub PlayMovie ()'URL je mjesto filma - promijenite na odgovarajući načinWindowsMediaPlayer1.URL = "C: /rb.wmv"WindowsMediaPlayer1.Kontrole.IgrajteKraj podm |
Reproducirajte film baš kao što biste pokrenuli makronaredbu: Alati-> makro-> makronaredbe
Također možete stvoriti nekoliko prečaca za skrivanje i zaustavljanje reprodukcije filma ako se šef približi. Dodajte sljedeći kôd ispod prethodnog koda:
123456789101112131415161718 | Sub HideQuick ()WindowsMediaPlayer1.Visible = NetačnoWindowsMediaPlayer1.Kontrole.pauzaKraj podmSub ShowQuick ()WindowsMediaPlayer1.Visible = IstinaWindowsMediaPlayer1.Kontrole.IgrajteKraj podm |
Zatim dodajte prečace u 2 makronaredbe (Alati-> Makro-> Makroi-> Opcije) i imate trenutni prekidač za UKLJUČIVANJE/ISKLJUČIVANJE nadohvat ruke.
Bočna napomena: Zanimljivo je gledanje filma izravno u programu Excel, moj omiljeni način gledanja filma tijekom rada je korištenje samostalnog Media Playera s nekoliko različitih opcija.
Na izborniku Alati-> Opcije potvrdite okvir "Prikaz na vrhu dok ste u načinu rada za kožu". Na izborniku Pogled odaberite "Skin Mode" (mala koža najbolje radi). Pomaknite film u donji desni ili lijevi ugao ekrana.
S ovim postavljanjem mogu raditi, a također se i prebacivati između aplikacija i uvijek imati svoj film vidljiv, ali s puta. Zahvaljujući Kingzteru.