dissabte, 4 de març del 2023

Canviar l'idioma de tots els objectes de Power Point

 Si comences a treballar en Power Point i tens un idioma diferent sobre el que vols aplicar la revisió ortogràfica, quan te n'adones entres en un cert nivell de desesperació, ja què cal canviar objecte per objecte.

En qualsevol cas, la solució és bastant fàcil. Sols cal aplicar una macro.

L'he tret de https://www.javiergutierrezchamorro.com/cambiar-idioma-de-una-presentacion-powerpoint/ i l'he retocat mínimament pel català:


Option Explicit

Sub Catalanitzador()

Dim oSlide As Slide

    Dim oShape As Shape

    Dim sLocale As String

    sLocale = InputBox("Introduce el idioma de destino:" & vbCrLf & "- 1027: Catalufo" & vbCrLf & "", "Idioma", "1027")

    For Each oSlide In ActivePresentation.Slides

        For Each oShape In oSlide.Shapes

            If ((oShape.Type = msoTextBox) Or (oShape.Type = msoPlaceholder)) And oShape.HasTextFrame Then

                oShape.TextFrame.TextRange.LanguageID = sLocale

            End If

        Next

    Next

End Sub

Si vols aplicar castellà, el valor seria 3082.
Si vols aplicar anglès, el valor seria 2057.
Per tota la resta d'idiomes, consulteu la pàgina esmentada.

Cap comentari:

Publica un comentari a l'entrada