< návrat zpět
MS Excel
Téma: Otevreni ve fullscrenu a dalsi
Zaslal/a Radek-wall 25.3.2014 20:23
Dobry vecer. Prosim o pomoc. Potrebuji, aby se excelovsky soubor otevrel ve fullscrenu a při zavreni souboru, aby se s fullscrenu vratilo okno do normalu. A další prosba. Aby se při otevreni souboru a nasldne aktualizaci dat zobrazilo okno "nacitam data", nebo aktualizuji databazi nebo cokoliv jiného. Predem dekuji
Uzamčeno - nelze přidávat nové příspěvky.
Opičák(26.3.2014 0:12)#018500 nebo jen takto. Zbytek již jistě dovedete upravit.
edit:
nějak nejdou zase vkládat přílohy, zkusím ještě jednou
citovat
Opičák(26.3.2014 0:20)#018501 No, přílohy najednou nejde vkládat, takže takto:
něco si z toho vyberte:
Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Subcitovat
Opičák(26.3.2014 0:25)#018502
Opičák(26.3.2014 0:35)#018503 S tím nápisem načítám data je to myslím složitější. Zobrazení nápisu či postupu načítání by muselo být "zakomponováno" do vlastního makra pro načítání dat. Řešitelné to je, ale nevidím v tom žádný smysl, krom jakéhosi efektu.
Jednodušeji to jde zobrazením upozornění a pak teprve načítat data.
Příloha: 18503_uform.zip (41kB, staženo 33x) citovat
cmuch(26.3.2014 5:37)#018504 Třeba myslel Fullscreen jen normální přes celou obrazovku
Při otevření sešitu dát
Application.WindowState = xlMaximizedb
při zavření
Application.WindowState = xlNormal
S tou hláškou by to třeba šlo i tak že na začátku načítání dat by vyskočilo okno a na konci načítání by se dalo zavřít. Myslím ale že to samé už píše ve StatusBaru.
citovat
Radek-wall(26.3.2014 19:00)#018522 Dekuji moc vsem. Otestuju. Jste opravdovi experti. Diky moc. Radek
citovat