Jak podivné, jak se zdá v globalizované společnosti, MS PowerPoint vývojáři není považováno za nezbytné umožnit svým uživatelům změnit jazyk celé prezentace. To je zvláště nepříjemné, když si přeložit snímků. Můžete snadno skončit s kombinací jazyků na snímku, a všimněte si, a pak, že není možné vybrat jeden hlavní: jazyk tlačítko (na liště dole) jednoduše nelze kliknout, pokud vícejazyčný text vybrán (v MS Word, to funguje, ale ne v MS PowerPoint). Dokonce i mix mezi angličtinou a USA / Velká Británie a anglickém jazyce zakáže tlačítko.
Základní kruhovém objezdu se skládá z určení "ve výchozím nastavení" jazyk. Jednoduše klikněte na jazyk, na panel jazyků na některých jednoho jazyka snímku, kde to skutečně funguje, vyberte jazyk a stiskněte "standardně":
Každý nový snímek bude systematicky uplatňovat svůj výchozí jazyk pro každé nové pole.
Nicméně to neřeší problém s již existující prezentace, které chcete přeložit. Začíná psát v angličtině na francouzském snímku, bude automaticky korektor pravopisu zdůrazňují, možná i žvýkat ji úplně, pokud jste "opravit psaní" aktivní. Pokud budete mít štěstí, jazyk chooser tlačítko funguje. Ale i jednoduché směs francouzské-pá a francouzsky chmakes není možné ji používat.
Pak, jak si určit jazyk celého snímku? Nebo dokonce (woaw) jazyk celou prezentaci?
No, jediný způsob, jak obejít toto makro mám z (!) Chocotooth blogu je :
Sub SetLangUS () Dim scount, J, K, fcount scount = ActivePresentation.Slides.Count scount Pro j = 1 až scount fcount = ActivePresentation.Slides (j). Shapes.Count fcount 'change all shapes: Pro k = 1 Chcete-li změnit fcount 'všechny tvary: Pokud ActivePresentation.Slides j). Tvary k). HasTextFrame pak ActivePresentation.Slides j). Tvary k). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS End If Další k fcount = ActivePresentation.Slides (j). NotesPage.Shapes.Count fcount 'change all shapes: Pro k = 1 Chcete-li změnit fcount 'všechny tvary: Pokud ActivePresentation.Slides j). NotesPage.Shapes k). HasTextFrame pak ActivePresentation.Slides j). NotesPage.Shapes k). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS End If Další k Další j End Sub
Co byste měli dělat s tím? Klepněte na tlačítko Visual Basic na záložce "oznamovatelem":
Vložte nový modul pomocí pravého tlačítka myši na 'VBAProject' v levém navigačním panelu:
Otevře se nové okno. Vložit kód do něj. A spusťte ho s 'play' tlačítka:
Vidíte? Všechna textová pole byly nastaveny na angličtinu a USA. Můžete si uložit kód pro pozdější použití do souboru s. Bas prodloužení.
PS: Vážení Microsoft, pokud byste mohli nabídnout méně nudné řešení, než tím, že jednoduše integruje jazyk přepínání funkce v aplikaci PowerPoint, děkujeme předem.
