PowerPoint 2007 - Установите язык для таблиц, диаграмм и т.д., содержащих текст

Итак, у меня есть этот макрос, который в основном сканирует каждый слайд в PowerPoint и устанавливает указанный язык. Работает отлично. Более того, он пропускает контейнеры, не являющиеся текстовыми полями. Я бы хотел, чтобы язык применялся к таблицам, умным рисункам, диаграммам и т. Д. Практически ко всему, что может содержать текст.

Возможно ли это вообще? Это текущий код:

Public Sub changeLanguage()

    On Error Resume Next

    'lang = "English"
    lang = "Norwegian"

    'Determine language selected
    If lang = "English" Then
            lang = msoLanguageIDEnglishUK
    ElseIf lang = "Norwegian" Then
            lang = msoLanguageIDNorwegianBokmol
    End If

    'Set default language in application
    ActivePresentation.DefaultLanguageID = lang

    'Set language in each textbox in each slide
    For Each oSlide In ActivePresentation.Slides
        Dim oShape As Shape

        For Each oShape In oSlide.Shapes
            oShape.Select
            oShape.TextFrame.TextRange.LanguageID = lang
        Next
    Next

End Sub