Kuinka moni on tuskaillut kuvien eri tekstiosien kieliasetuksilla?

Itse olen monesti, mutta nyt sain ainakin omissa kuvissani kieliasetukset toimimaan seuraavalla pienellä makrolla. Makro käy läpi kaikki aktiivisen esityksen kuvat ja niiden tekstiruudut (shapes) ja muuttaa kieleksi us english.

Jos kieli halutaan uk englanniksi tai suomeksi, kommentoidaan us englanti -rivi ja poistetaan kommenttimerkki (‘) sen rivin kohdalta, mihin kieleen halutaan vaihtaa.

Esim. halutaan vaihtaa kieli suomeksi: poista kommenttimerkki tältä riviltä koodissa
‘sh.TextFrame.TextRange.LanguageID = msoLanguageIDFinnish

Sub ChgLng() 
'change language to us/uk- english/finnish
    Dim sld As Slide
    Dim sh As Shape
        On Error Resume Next
        For Each sld In ActivePresentation.Slides
            For Each sh In sld.Shapes
                'us englanti
                sh.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
                'uk englanti
                'sh.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUK
                'suomi
                'sh.TextFrame.TextRange.LanguageID = msoLanguageIDFinnish
            Next
        Next
End Sub

Makron kopioit PowerPoint moduuliin seuraavasti:

Valitse koodi.
Paina Ctrl + c (kopioi).
Paina Alt + F11.
Valitse Insert – Module.
Paina Ctrl + v (liitä).

Suorita koodi esimerkiksi seuraavasti: laita osoitin koodin ja paina F5.

Suorita koodi toisessa esityksessä:

Pidä avoinna esitys, johon koodin kopioit, ja avaa esitys, jota haluat muuttaa.
Valitse Näytä – Makrot, Makrot (View – Macros, Macros).
Avautuvasta valintaikkunasta valitse makrojen lähteeksi Kaikki avoimet esitykset ja tämä kyseinen makro ChgLng.