..:: Nasvet/VBA ::..

Kako lahko dosežem, da se ob odprtju delovnega zvezka prikaže moja reklama (podobno kot pri odpriranju Excela/Worda…)?


Kar želite doseči, se s tujko imenuje Splash Screen (smiselnega prevoda ne poznam zato se zanj priporočam...)

Dobro, najprej morate narediti preprost obrazec, kjer bo zapisana vaša reklama. Predpostavimo, da obrazec imate (imenuje naj se frmReklama) in ga želite prikazati za 5 sec. vsakič ko se zvezek odpre. Za izvedbo naloge boste morali uporabiti odzive na dogodke, o čemur lahko berete v prejšnjem nasvetu.

'Najprej zaukažite Excelu, da ob odprtju zvezka prikaže reklamo: Private Sub Workbook_Open() frmReklama.Show End Sub 'Nato napišite proceuro, ki formo zapre: Private Sub ZapriReklamo() Unload frmReklama End Sub 'In nazadne zaukažite Excelu, naj po petih sekundah zapre reklamo Private Sub frmReklama_Activate() Application.OnTime Now + TimeValue("00:00:05"), _ "ZapriReklamo" End Sub