'Loop all the slides in the document, and change the languageĬhangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), languageID To further improve it the macro can be made recursive to look for groups which contain other groups, etc.)īased on Inigo, Duncan, Maria and DomDev's answers, this works for shapes, tables, groups, SmartArt, now and in the future: Sub ChangeProofingLanguageToFrench() I added support for first level of shape grouping. (Credit goes to Ganesh Kumar who posted the original macro here.
#MICROSOFT POWERPOINT 2016 RIBBON REVIEW FULL#
The full list of languages can be found in this article The "msoLanguageIDEnglishUS" which is used in the above macro can be replaced by any desired language. If ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m).HasTextFrame ThenĪctivePresentation.Slides(j).Shapes(k).GroupItems.Item(m) _ Gcount = ActivePresentation.Slides(j).Shapes(k).GroupItems.Count If ActivePresentation.Slides(j).Shapes(k).Type = msoGroup Then If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then This macro solved the problem for me : Sub ChangeProofingLanguageToEnglish()ĭim j, k, m, scount, fcount, gcount As Integerįcount = ActivePresentation.Slides(j).Shapes.Count Unfortunately in my case this didn't cover a significant part of the text, including figures, tables, etc. 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), _
#MICROSOFT POWERPOINT 2016 RIBBON REVIEW FREE#
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. Tools → Language → Choose your language to set.To change the language of the entire PowerPoint easily, open the View tab and select the Outline view.
0 kommentar(er)
