On >16.9, though, the following code should work ( TextFrame is replaced by TextFrame2 , as suggested here by John SR Wilson): Sub SetLangUS()ĪctivePresentation.Slides(j).Shapes(k).TextFrame2 _ĪctivePresentation.Slides(j).NotesPage.Shapes(k).TextFrame2 _ In earlier versions, Microsoft just thought interesting not to include the LanguageID property to the TextFrame object, which basically breaks the code. #HOW TO CHANGE POWERPOINT TO ENGLISH CODE# An improved version:ĭim j, k, m, scount, fcount, gcount As Integer This doesn’t catch text in boxes, smart art etc. If ActivePresentation.Slides(j).Shapes(k).Type = msoGroup Then ‘change all text in boxes, smart art etc.
0 kommentar(er)
