Я разработал функцию PowerPoint VBA, в которую я передаю объект Shape and Slide.

Функция находит фигуру с текстом LOGO внутри, если она находит, она заменяет эту фигуру на фигуру, которую я передал функции.

Функция отлично работает в Office 2013, но не в Office 2016.

Кто-нибудь может предложить, пожалуйста, обойти это?

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

Ниже приведено сообщение об ошибке, которое я получаю в Powerpoint 2016: