Код VBA для копирования командных кнопок

Question

Я в тупике. Пожалуйста помоги. Какой код VBA можно использовать для копирования командных кнопок с одного слайда на другой (вместе с кодом за ними)? Я думаю, что могу справиться с циклом, но я не могу найти код / строку / команду, которая будет выполнять фактическое копирование. Спасибо!

Answer 1

Вот макрос VBA для копирования всех кнопок с одного слайда на другой:

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

Скопированные кнопки унаследуют ссылки и действия от исходных кнопок.