Instructor PPTX VBA - Changing Slide Object's TextFrame and Table Cells Language Property
How to change textbox language to English If your like me, you find the red squiggly lines in PPTX TextFrames distracting when working with pptx files that have a mismatched language issue. Here is a script that will: detect how many slides in your presentation for each slide, loop through each shape determining if it has a TextFrame, then... sets the language to EnglishUS while deleting empty TextFrames if the shape has a table: it sets each table cell to EnglishUS Sub format_all_textboxes() Dim oSld As Slide Dim oSh As Shape For Each oSld In ActiveWindow.Selection.SlideRange For x = oSld.Shapes.Count To 1 Step -1 Set oSh = oSld.Shapes(x) If oSh.HasTextFrame = True Then If oSh.Name Like "Titl*" Or _ oSh.Name Like "Subtitle*" Or _ oSh.Name Like "Text*" Or _ oSh.Name Like "Content*" _ Then