pás karet

Zvolené téma obsahuje celkem 1 odpověď. Do diskuze (2 diskutující) se naposledy zapojil uživatel Admin bar avatar Petr Vadlejch a poslední změna proběhla před 9 měsíci.

  • Autor
    Příspěvky
  • #16085

    Oldřich Svoboda, senior

    Zpráva:
    Dobrý den!
    Obracím se na Vás se žádostí o radu. Je mi 70 let a řadu let si vedu v Excelu domácí účetnictví. Každý rok se jej snažím vylepšit. knih. Tento týden jsem si
    Pokud jde o tu radu. Rád bych si ve VBA naprogramoval ovládání manipulace s pásem karet a to možnost
    a/ automaticky skrývat pás karet
    b/ zobrazit karty
    c/ zobrazit karty a příkazy

    Bohužel když to zkouším pomocí nahrávání makra tak se mi to nedaří a zatím jsem v žádné Vaší knize a ani na internetu nenašel návod jak toho docílit.
    Rád bych při otevření určitého sešitu měl zobrazenou variantu b a při otevření jiného sešitu měl zobrazenou variantu a.
    Mohl byste mi poskytnou radu jak toho docílit?!
    Děkuji za porozumění.

    Oldřich Svoboda, senior

  • #16096
    Admin bar avatar
    Petr Vadlejch
    Správce

    Dobrý den,

    použijte tento kód při otevření souboru

    Private Sub Workbook_Open()
    Dim RibbonIsMinimised As Long
    
    'automaticky skrývat pás karet
    Application.CommandBars.ExecuteMso "HideRibbon"
    
    'zobrazit karty - přepíná viditelnost pásu karet. pokud je viditelný, minimalizuje a naopak
    Application.CommandBars.ExecuteMso "MinimizeRibbon"
    
    'zobrazit karty a příkazy - zobrazí pás karet, pokud je minimalizovaný
    RibbonIsMinimised = Application.CommandBars("Ribbon").Height
    If RibbonIsMinimised < 100 Then Application.CommandBars.ExecuteMso "MinimizeRibbon"
    
    End Sub
    

Pro reakci na toto téma se musíte přihlásit.