professormor.blogg.se

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 'For example, US English is msoLanguageIDEnglishUS, or if you prefer Dutch, use msoLanguageIDDutchįcount = ActivePresentation.Slides(j).Shapes.Count 'A list of languages can be found here: (v=office.12) 'will have the same problem (Press CTRL + WINDOWS + SPACE to switch the Keyboard input language).ĭim iRows, iCol, j, k, m, scount, fcount, gcount, language As Integer 'Also make sure that you set the WINDOWS Language (taskbar, bottom right) to the preferred language, otherwise all new text 'Now go to the REVIEW tab, select Language, and change the proofing language. 'Alternatively, but less complete, go to the VIEW tab, select OUTLINE, select all slides (using CTRL-A). 'Now you can run the macro from the same menu. toEnglish, and press create to enter below text. 'Go to the VIEW tab, select MACROS (at the right), enter a name, e.g. 'In newer PowerPoint version, you need to first save your PowerPoint with macros enabled. Learn more about bidirectional Unicode characters To review, open the file in an editor that reveals hidden Unicode characters. This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below.