código VBA para copiar botões de comando

Question

Estou perplexo. Por favor ajude. Que código VBA pode ser usado para copiar botões de comando de um slide para outro (junto com o código por trás deles)? Eu acho que posso lidar com o loop, mas não consigo encontrar o código / linha / comando que fará a cópia real. Obrigado!

    

Answer 1

Aqui está uma macro VBA para copiar todos os botões de um slide para outro:

Option Explicit

Public Sub copyButtons(sourceSlide As Slide, targetSlide As Slide)
    Dim shp As Shape

    If sourceSlide.Name <> targetSlide.Name Then
        For Each shp In sourceSlide.Shapes
            If InStr(shp.Name, "Button") > 0 Then
                shp.Copy
                targetSlide.Shapes.Paste
            End If
        Next shp
    End If
End Sub

Public Sub testCopyButtons()
    Dim sourceSlide As Slide
    Dim targetSlide As Slide

    Set sourceSlide = ActivePresentation.Slides(2)
    Set targetSlide = ActivePresentation.Slides(3)
    Call copyButtons(sourceSlide, targetSlide)
End Sub

Os botões copiados herdarão os links e ações dos botões originais.