He desarrollado una función Powerpoint VBA a la que le paso un objeto Shape y Slide.

La función busca una forma con el LOGOTIPO de texto dentro de ella, si la encuentra, reemplaza esa forma con la forma que le pasé a la función.

La función funciona perfectamente en Office 2013 pero no en Office 2016.

¿Alguien puede sugerir una solución para esto?

Public Sub AddLogo_ONE(shLogo As Shape, oSlide As PowerPoint.Slide)
    Dim sh As Shape

    For Each sh In oSlide.Shapes
        If sh.HasTextFrame Then
            If UCase(sh.TextFrame2.TextRange.Text) = "LOGO" Then
                oSlide.Select
                DoEvents: DoEvents
                shLogo.Copy
                With oSlide.Shapes.Paste
                    .LockAspectRatio = msoFalse
                    .Left = sh.Left
                    .Top = sh.Top - ((.Height - sh.Height) / 2)
                    .AlternativeText = "LogoMacro"
                    sh.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
                End With
                Exit For
            End If
        End If
    Next
End Sub

A continuación se muestra el mensaje de error que recibo en Powerpoint 2016: