কমান্ড বাটন কপি VBA কোড

Question

আমি stumped করছি। সাহায্য করুন. কোনও স্লাইড থেকে অন্য স্লাইডে কমান্ড বাটনগুলি কপি করার জন্য (তাদের পিছনে কোড সহ) VBA কোড ব্যবহার করা যেতে পারে? আমি মনে করি আমি লুপিং পরিচালনা করতে পারি, কিন্তু আমি কোড / লাইন / কমান্ড খুঁজে পাচ্ছি না যা প্রকৃত অনুলিপি করবে। ধন্যবাদ!

Comments

স্লাইড মাস্টারের বোতামটিকে সমস্ত স্লাইডে উপলভ্য করার জন্য এটি কী বিকল্প হবে?

— Axel Kemper

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

কপি করা বোতামগুলি আসল বোতামগুলি থেকে লিঙ্কগুলি এবং ক্রিয়াকলাপগুলি উত্তরাধিকারী হবে।