zde soubor
Příloha: 
11395_ribbony.rar (62kB, staženo 29x)
citovat11395_ribbony.rar (62kB, staženo 29x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Skryvani a opetovny zobrazovani panelu nastroju
MS Excel
Téma: Skryvani a opetovny zobrazovani panelu nastroju 
Zaslal/a fasd39 4.2.2013 22:31
Ahoj, narazil jsem na dalsi vec.
Chtel jsem udelat, aby soubor pri otevreni skryl Mrizku, Nadpisy, Radek vzorcu, to se povedlo. Ale taky aby si minimalizoval panel nastroju, coz se taky povedlo. Udelal jsem to timto kodem:
Sub ShowGridHeader()
Application.ScreenUpdating = False
With ActiveWindow
' zobrazeni mrizky
.DisplayGridlines = True
' zobrazeni nadpisu (cisla a pismena)
.DisplayHeadings = True
' zobrazeni radku vzorcu
.Application.DisplayFormulaBar = True
End With
Application.ScreenUpdating = True
End Sub
Sub HideGridHeader()
Application.ScreenUpdating = False
With ActiveWindow
' zobrazeni mrizky
.DisplayGridlines = False
' zobrazeni nadpisu (cisla a pismena)
.DisplayHeadings = False
' zobrazeni radku vzorcu
.Application.DisplayFormulaBar = False
End With
Application.ScreenUpdating = True
End Sub
Sub Minimize_Ribbon()
If Application.CommandBars("Ribbon").Height > 80 Then SendKeys "^{F1}"
End Sub
Sub Full_Ribbon()
' If Application.CommandBars("Ribbon").Height < 80 Then SendKeys "^{F1}"
SendKeys "^{F1}"
End Sub
Bohuzel, pri zavirani bych chtel aby se to zase vse pozapinalo. Vsechno fungovalo mimo panelu nastroju. misto toho aby se objevil, vzdy naskocila napoveda excelu (JAKO BY V KODU BYLO IGNOROVANO CTRL A MACKALO SE JEN F1).
Na netu jsem nasel dalsi reseni (viz prilozeny soubor). To ale schovava uplne vsechno nahore, OTAZKA1: nevite jak se to da zpatky zobrazit z toho otevrenyho souboru?
Otazka2: jak by sa dal vyresit prvni pripad? proc se zapina ta napoveda?
Nahledal jsem azaz a vicemene jsem nasel, ze to trapi vic lidi. Predem diky, Danny
????????????? F1 startuje nápovědu a když to v tom kodu je, tak to "napovídá"
mrkni na tento způsob, zrušeno vše k tomu účelu nepotřebné.
mrkni na tento způsob, zrušeno vše k tomu účelu nepotřebné.
Příloha: 11396_zobrazit_schovat_vsechno.zip (20kB, staženo 36x)
citovat11396_zobrazit_schovat_vsechno.zip (20kB, staženo 36x)Funkce pro mini a maxi pás karet. Snad to pomůže, jdu spát 
Příloha: 11397_pas-karet-mini-maxi.zip (19kB, staženo 37x)
citovat11397_pas-karet-mini-maxi.zip (19kB, staženo 37x)(6.2.2013 8:50)#011415
Opičáku diky, vse cos poslal funguje bezvadne. Jen mi jeste chybi kod pro znovuzvetseni pasu karet z jeho mini verze. To je prave ta podivna vec, ktera vyhazuje napovedu (coz by nemela, kdyz tam je Ctrl pred F1).
stejnej zapis jako pro minimalizovani pasu karet pro obnoveni proste nefunguje.citovat
stejnej zapis jako pro minimalizovani pasu karet pro obnoveni proste nefunguje.citovat
SendKeys "^{F1}" pokud je jako součást funkce tak funguje jako Ctrl F1 - pro pás karet, ale pokud je součástí makra, tak funguje jako nápověda. Proč? no tak to se mě zeptej.
Prvním zavoláním fce se zmenší, dalším se zvětší.citovat
Prvním zavoláním fce se zmenší, dalším se zvětší.citovat
Zkus teď ....
Příloha: 11448_pas-karet-mini-maxi-2.zip (17kB, staženo 33x)
citovat11448_pas-karet-mini-maxi-2.zip (17kB, staženo 33x)a nebo, což je v podstatě to samé.
Bylo odzkoušeno jen na win8 a Off2010, tohle mi funguje i na win7 a Off2007. Je pravda, že původní verze na 7 nejela.
Bylo odzkoušeno jen na win8 a Off2010, tohle mi funguje i na win7 a Off2007. Je pravda, že původní verze na 7 nejela.
Příloha: 11449_pas-karet-mini-maxi_3.zip (18kB, staženo 29x)
citovat11449_pas-karet-mini-maxi_3.zip (18kB, staženo 29x)A po chvíli oškubávání kodu zbyde jen tohle a ejhle, vono to funguje. Vyzkoušel jsem i jiné funkční klávesy F12, Ctrl+F12 a všechno funguje, pokud jsou stisky kláves zapsány jako funkce.
Příloha: 11450_mini-max.zip (17kB, staženo 36x)
citovat11450_mini-max.zip (17kB, staženo 36x)Teda ty to sem sazis, to posledni uz je hafo jednoduchy.
Snazim se to napasovat so souboru, aby to fungovalo pri jeho zavirani, ale at zkusim cokoliv, stejne naskoci jen napoveda. Doufam, ze to predelavam spravne, ale presto, nevytvoril bys soubor, v kterym se pas pri otevreni minimalizuje a pri zavreni zase obnovi, aby kdyz pak otevru jiny soubor, byl pas karet celej. ? dik tak jako tak!citovat
Snazim se to napasovat so souboru, aby to fungovalo pri jeho zavirani, ale at zkusim cokoliv, stejne naskoci jen napoveda. Doufam, ze to predelavam spravne, ale presto, nevytvoril bys soubor, v kterym se pas pri otevreni minimalizuje a pri zavreni zase obnovi, aby kdyz pak otevru jiny soubor, byl pas karet celej. ? dik tak jako tak!citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články