Změna jazyka gramatiky v celé prezentaci PowerPointu

Microsoft Office online video kurzy Poradna Microsoft Office PowerPoint poradna Změna jazyka gramatiky v celé prezentaci PowerPointu

Zvolené téma obsahuje celkem 1 odpověď. Do diskuze (2 hlasy) se naposledy zapojil uživatel  Neznámý uživatel a poslední změna proběhla před 1 rok, 3 měsíců.

  • Autor
    Příspěvky
  • #5871 Odpověď
    Admin bar avatar
    Petr Vadlejch
    Klíčník

    Často se setkávám s dotazem, jak změnit jazyk pro kontrolu gramatiky v prezentaci na všech snímcích najednou. V textových polích je možné po jejich označení změnit jazyk na kartě Revize nebo na stavovém řádku, ale tato změna se neprojeví do ostatních textových polí. Taková otročina asi nikoho nebaví, a proto je tu tento návod s fungujícícím postupem. 🙂

    Abychom docílili požadované změny jazyka na všech snímcích, pomůžeme si tvorbou makra, což je kód v jazyku VBA (visual basic). Makro ve většině případů vyřeší to, co normálním postupem řešení nemá. Do prostředí pro tvorbu makra se dostaneme přes kartu Vývojář (Developer), ale mnohem rychlejší je kombinace ALT+F11, která nás do prostředí VBA přepne.

    Zde zvolíme vytvoření novémo makra dle obrázku.

    Tvorba makra

    Do textového prostoru tzv. modulu, který se vytvoří, vložíme následující kód (můžete jej přímo odsud zkopírovat).

    Sub anglicky()
    PocetSnimku = ActivePresentation.Slides.Count
    For s = 1 To PocetSnimku
    PocetPoli = ActivePresentation.Slides(s).Shapes.Count
    For p = 1 To PocetPoli
    If ActivePresentation.Slides(s).Shapes(p).HasTextFrame Then
    ActivePresentation.Slides(s).Shapes(p).TextFrame.TextRange _
    .LanguageID = msoLanguageIDEnglishUK
    End If
    Next p
    Next s
    End Sub
    
    Sub cesky()
    PocetSnimku = ActivePresentation.Slides.Count
    For s = 1 To PocetSnimku
    PocetPoli = ActivePresentation.Slides(s).Shapes.Count
    For p = 1 To PocetPoli
    If ActivePresentation.Slides(s).Shapes(p).HasTextFrame Then
    ActivePresentation.Slides(s).Shapes(p).TextFrame.TextRange _
    .LanguageID = msoLanguageIDCzech
    End If
    Next p
    Next s
    End Sub
    

    Abychom mohli makro použít, soubor uložíme jako prezentaci s podporou maker, koncovka pptm a poté již můžeme makro spouštět přes kartu Zobrazení, kde na pravé straně najdeme tlačítko Makra. Naše dvě makra pro český i anglický jazyk změní nastavení kontroly gramatiky na všech snímcích. Makro spouštíme až v momentě, kdy jsou již všechny texty na snímcích připravené.

  • #5872 Odpověď

    tisíceré díky, dlouho sem hledal takové řešení.
    Original author: Miloslav

Odpovědět: Změna jazyka gramatiky v celé prezentaci PowerPointu
Informace o Vás: