Med delom v Excelu si oglejte ali poslušajte filme v Excelu:
1. V glavnem meniju kliknite Vstavi-> Objekt
2. Izberite Windows Media Player Iz Vrsta objekta polje in pritisnite OK
3. Premaknite in spremenite velikost WMP po svojih željah
Opomba: Če ne morete spremeniti velikosti predmeta WMP, preklopite na »Način oblikovanja« s klikom na gumb za način oblikovanja 
Zdaj bomo dodali kodo, ki bo predmetu Windows Media Player povedala, naj predvaja in katero datoteko naj predvaja. Odprite urejevalnik Visual Basic (alt+F11), dvokliknite delovni list, ki vsebuje pravkar vstavljeni WMP, in prilepite naslednjo kodo:
| 12345678910 | Sub PlayMovie ()'URL je lokacija filma - ustrezno spremeniteWindowsMediaPlayer1.URL = "C: /rb.wmv"WindowsMediaPlayer 1. Nadzor. PredvajanjeEnd Sub |
Predvajajte film tako, kot bi izvajali makro: Orodja-> Makro-> Makri
Morda boste želeli ustvariti tudi nekaj bližnjic za Skrivanje in prenehanje predvajanja filma, če se šef približa. Pod prejšnjo kodo dodajte naslednjo kodo:
| 123456789101112131415161718 | Sub HideQuick ()WindowsMediaPlayer1.Visible = FalseWindowsMediaPlayer 1. Zaustavitev krmiljenjaEnd SubSub ShowQuick ()WindowsMediaPlayer1.Visible = ResWindowsMediaPlayer 1. Nadzor. PredvajanjeEnd Sub |
Nato dodajte bližnjici do dveh makrov (Orodja-> Makro-> Makri-> Možnosti) in na dosegu roke imate takojšnje stikalo za vklop/izklop.
Stranska opomba: Medtem ko je ogled filma neposredno v Excelu zanimiv, je moj najljubši način gledanja filma med delom uporaba samostojnega predvajalnika medijev z nastavljenimi različnimi možnostmi.
V meniju Orodja-> Možnosti potrdite polje »Prikaz na vrhu, ko ste v načinu kože«. V meniju Pogled izberite »Način kože« (majhna koža najbolje deluje). Premaknite film v spodnji desni ali levi del zaslona.
S to nastavitvijo lahko delam in tudi preklapljam med aplikacijami, moj film pa bo vedno viden, vendar stran. Hvala Kingzterju.
