The existing answers work for text that is present in the outline. = languageIDįor i = 1 To ĬhangeAllSubShapes (i), languageID Sub ChangeAllSubShapes(targetShape As shape, languageID As MsoLanguageID) Sub ChangeProofingLanguageToEnglish()įor j = 1 To įor k = 1 To ActivePresentation.Slides(j).Shapes.CountĬhangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), _ ![]() ![]() Some experimentation suggests that msoGroup and msoSmartArt are the group types - feel free to add to that list if you find other types of shapes that can hold text objects. This version will recursively investigate each shape that is a group type. I improved upon Inigo's answer to provide a recursive version that changes all items to the desired language. → Language Preferences → Choose Editing Languages. Review → Language → Set Proofing Language.Probably because I also did changed Editing Language: → Choose your language to set.Īs for me - PowerPoint restart was needed. View → Outline → select all slides (in a left menu) via Ctrl+ A.You can also reset individual slides to the master style, but this may result in placeholders moving as well, which may be undesirable in some situations. Although of course in many case this is better done by changing the slide master, a presentation that has had many editors may have lots of 'hard' formatting set which deviates from the underlying master and needs resetting to be consistent. ![]() Likewise while you have everything selected you can change other things like fonts, colours etc.
0 Comments
Leave a Reply. |