VBA Powerpoint 2013: change presentation language including SmartArt objects
问题 I can not find a way to change by VBA script the language in SmartArt objects in Powerpoint 2013. I've seen PowerPoint 2007 - Set language on tables, charts etc that contains text but it does not work for SmartArt objects. Any idea how I could do this? Many thanks. 回答1: You need to access the Nodes (or GroupItems) of the SmartArt object like this: Sub SwitchSmartArtLanguage(oSA As SmartArt) Dim oNode As SmartArtNode With oSA For Each oNode In .Nodes oNode.TextFrame2.TextRange.LanguageID =