![]() 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), _ ![]() 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. ![]()
0 Comments
Leave a Reply. |