wobba / officeaddin

21 stars 3 forks source link

Doesn't show on Powerpoint 2016 #5

Open daniel-lo opened 4 years ago

daniel-lo commented 4 years ago

Hi .. either I cannot find it or it doesn't show in PP2016 .. any idea what I can do about it? I used this formerly and it is much appreciated!

Dalis18 commented 3 years ago

Same here. It does not show up for me in Powerpoint 2016. Has it stopped functioning?

Dalis18 commented 3 years ago

Sorry. I unisnstalled and reinstalled and voila, it is there. Love the functionality. However, it does not seem to change the language inside tables...

thethinker990 commented 3 years ago

With my powerpoint it's not working, also not after re-installing. Office 365, PowerPoint Version 2106 (Build 14131.20278) It doesn't show up in any menu tab nor in the addins.

VBA Workaround:

Option Explicit
Public Sub ChangeSpellCheckingLanguage()
    Dim j As Integer, k As Integer, scount As Integer, fcount As Integer
    Dim sld As Slide
    Dim shp As Shape
    Dim ntp As Shape
    Dim san As SmartArtNode
    Dim lang: lang = msoLanguageIDEnglishUS

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes

            ' change lang in every shape (text boxes etc.)
            If shp.HasTextFrame Then
                shp.TextFrame2.TextRange.LanguageID = lang
            End If

            ' change every smart art text box
            If shp.Type = msoSmartArt Then
                For Each san In shp.SmartArt.AllNodes
                    If san.TextFrame2.HasText Then
                        san.TextFrame2.TextRange.LanguageID = lang
                    End If
                Next
            End If

        Next

        ' change lang in every notepad field
        For Each ntp In sld.NotesPage.Shapes
            If ntp.HasTextFrame Then
                ntp.TextFrame2.TextRange.LanguageID = lang
            End If
        Next
    Next
End Sub