Por extraño que parezca en una sociedad globalizada, los desarrolladores de MS PowerPoint no han considerado necesario para permitir a sus usuarios para cambiar el idioma de una presentación de conjunto. Esto se vuelve especialmente molesto cuando se traducen las diapositivas. Es muy fácil acabar con una mezcla de idiomas en una diapositiva, y te darás cuenta, entonces, que no es posible seleccionar la principal: el botón de idioma (en la barra de abajo) no es simplemente hacer clic en si un texto en varios idiomas es seleccionado (en MS Word, esto funciona, pero NO en MS PowerPoint). Incluso una mezcla de Inglés / Inglés EE.UU. y / Reino Unido desactiva el botón.
La rotonda básica consiste en determinar el "por defecto" del lenguaje. Simplemente haga clic en el idioma en la barra de idioma en alguna diapositiva de un lenguaje en el que esto sea realmente así, seleccionar un idioma, y pulse "por defecto":
Cada nueva diapositiva de forma sistemática se aplicará el el idioma por defecto a cualquier nueva caja.
Sin embargo, esto no resuelve el problema de una presentación existente que desea traducir. De empezar a escribir en Inglés sobre un portaobjetos de francés, la auto-corrector pondrá de relieve la ortografía, tal vez incluso lo mastique por completo si se ha "corregir mientras se escribe 'activo. Si tienes suerte, el botón selector de idioma funciona. Sin embargo, incluso una simple mezcla de francés y francés-fr-chmakes imposible usarlo.
Entonces, ¿cómo se determina el idioma de un conjunto de diapositivas? O incluso (woaw) el lenguaje de toda una presentación?
Bueno, la única manera de ir alrededor de esto es una macro que tengo a partir de (!) Blog Chocotooth de :
Sub SetLangUS () Dim descuento del, j, k, FCOUNT = descuento del ActivePresentation.Slides.Count scount Para j = 1 a descuento del FCOUNT ActivePresentation.Slides = (j). Shapes.Count fcount 'change all shapes: Para k = 1 para cambiar FCOUNT "todas las formas: Si formas ActivePresentation.Slides j). K). Luego HasTextFrame ActivePresentation.Slides j). Formas (K). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS End If Siguiente k FCOUNT ActivePresentation.Slides = (j). NotesPage.Shapes.Count fcount 'change all shapes: Para k = 1 para cambiar FCOUNT "todas las formas: Si NotesPage.Shapes ActivePresentation.Slides j). K). Luego HasTextFrame ActivePresentation.Slides j). NotesPage.Shapes (K). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS End If Siguiente k Siguiente j End Sub
¿Qué debe hacer con esto? Haga clic en el botón de Visual Basic en la pestaña 'del desarrollador:
Inserte un nuevo módulo, haga clic en "VBAProject" en el panel de navegación de la izquierda:
Esto abre una nueva ventana. Pegue el código en él. Y se ejecuta con el botón 'play':
¿Ves? Todos los cuadros de texto se han establecido en Inglés / EE.UU.. Puede guardar el código para su uso posterior en un archivo con extensión. Bas de extensión.
PD: Estimado Microsoft, si usted podría ofrecer una solución menos tedioso que esto simplemente la integración de la característica del lenguaje de conmutación en PowerPoint, muchas gracias de antemano.
