PowerPointVBAでスライドを特定のセクションにコピペするには

Question

ここに質問の内容を詳しく書いてください。
質問：PowerPoint の VBA で
特定の Presentation の特定の Section の Slide をコピーして
別の 　Presentation の特定の section (の末尾)にペーストしたい
のですが、VBAで Section を指定する方法がわかりません。
ご存知でしたら教えていただきたく、よろしくお願いいたします。

Answer 1

もっとスマートなやり方があるかもしれませんが、
こんな感じで書くことはできると思います。

Function GetLastSlideOfSection(p As Presentation, s As String) As Long
    With p.SectionProperties
        Dim i
        For i = 1 To .Count
            If .Name(i) = s Then Exit For
        Next
        If i > .Count Then Exit Function
        GetLastSlideOfSection = .FirstSlide(i) + .SlidesCount(i) - 1
    End With
End Function

Sub sample()
    'Copy処理は省略

    Dim saki As Presentation
    Set saki = Presentations(2)
    Dim secName As String
    secName = "Section2"

    saki.Slides.Paste GetLastSlideOfSection(saki, secName) + 1
End Sub

Comments

[Siwasu2021]

jinoji さま
　早速のご回答、ありがとうございます。
　助かります。

[Siwasu2021]

jinoji さま
　先般はありがとうございました。
　もう一つ、教えていただきたいのですが、
　今回のご解答では、コピー元からコピーしてきたスライドを、コピー先のどのスライドの後ろに
　挿入するかは理解出来たのですが、どのセクションに挿入するかの指示がどこでなされているの
　か理解出来ませんでした。
　お忙しいこととは存じますが、教えていただければ幸いです。

[jinoji]

GetLastSlideOfSectionという処理の中で、
引数として渡したセクション名がみつかるまでループしてセクションのIndexを求めた後、
そのセクションの最初のスライド番号と、セクション内のスライド枚数から、
セクションの最後のスライド番号を割り出しています。