PowerPoint VBA - Copiar forma para um slide

Question

Mar 28, 2016, 02:33 PM

PowerPoint VBA - Copiar forma para um slide

Eu desenvolvi uma função Powerpoint VBA para a qual passo um objeto Shape and Slide.

A função encontra uma forma com o texto LOGO dentro dela, se encontrar, substitui essa forma pela forma que eu passei para a função.

A função funciona perfeitamente no escritório 2013, mas não no Office 2016.

Alguém pode sugerir uma solução para isso?

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

Abaixo está a mensagem de erro que recebo no Powerpoint 2016:

leaveComments