PowerPoint VBAでスライドをコピぺする方法

Question

前提・実現したいこと

ボールドテキスト
ここに質問の内容を詳しく書いてください。### ヘディングのテキスト
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

PowerPoint は Slide を Section に分けて格納できるようになって
機能が向上していますが、　PowerPoint の VBA を使って、特定の
Presentation の特定の Section から　別の Presentation の
特定の Section に Slide をコピペする際の、VBA の表記の仕方が
わかりません。ネット上の情報も乏しく困っております。
どなたか、ご存じの方がいらっしゃいましたら教えていただけませんで
しょうか。よろしくお願いいたします。

エラーメッセージ

該当のソースコード

PowerPoint の VBA
ソースコード

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim moto As Presentation
    Dim saki As Presentation
    Set moto = ActivePresentation
    Set saki = Presentations.Add
    
    Dim secName As String
    secName = "section1"
    
    With moto.SectionProperties
        Dim i, j, k
        For i = 1 To .Count
            If .Name(i) = secName Then Exit For
        Next
        If i > .Count Then Exit Sub
        
        ReDim arr(.SlidesCount(i) - 1)
        For j = 0 To UBound(arr)
            arr(j) = .FirstSlide(i) + j
        Next
        
        moto.Slides.Range(arr).Copy
        
        k = saki.Slides.Count + 1
        saki.Slides.Paste k
        saki.SectionProperties.AddBeforeSlide k, secName

    
    End With

End Sub

Comments

[Siwasu2021]

jinoji 様
　早速のご回答ありがとうございます。
　おかげで解決方法が見えてきました。
　簡潔なプログラミングスタイルも参考にさせていただきます。
　ありがとうございます。

[Siwasu2021]

前回はありがとうございました。
　実は、もう一点教えていただきたく、お願いいたします。
　質問：PowerPoint の VBA で
　　　　ある Presentation の 特定の Section の Slide をコピーして
別の Presentation の特定のsection (の末尾)にペーストしたい
　　　　のですが、VBAで行う Section の指定方法がわかりません。
　　　　ご存知でしたら教えていただきたく、よろしくお願いいたします。

[jinoji]

上のコードの要領で、貼り付け先のpresentationの sectionproperties
を順に見ていってnameが一致したところでFirst slide+slides countで末尾を割り出せば行けそうですが。

[Siwasu2021]

jinoji さま
　ありがとうございます。
　試してみます。

[Siwasu2021]

jinoji さま
　お世話になり、ありがとうございます。
教えていただいた方法でコピペを試みましたが、
コピーしたスライドをペーストする場合に、ペースト先のセクションに全くスライドがない場合には、セクション別にペーストできず、すべてのスライドが冒頭部分のセクション外にペーストされます。
私の勉強不足で、そうなる原因はわかりません。
重ねての質問で恐縮ですが、この点について、解決策がないでしょうか。

[jinoji]

セクションにスライドがない場合はFirstSlideが-1 になるみたいなので、
私の書いたやり方だとペーストする場所がうまく計算できないようです。
If .SlidesCount = 0 Then と条件分岐して、、、と考えましたが、
他のセクションの構成次第なところがあって複雑になってしまいそうです。

プレゼンテーションの末尾に、新たにセクションを追加し、その後ろにペーストする、
みたいな仕様にしてみるわけにはいかないでしょうか。

[Siwasu2021]

jinoni さま
　ありがとうございます。
　もうしばらく苦闘してみます。

[Siwasu2021]

jinoji さま
　貴重なヒントをありがとうございます。
　コピー先である複数のセクションのそれぞれに対して手動でダミーのスライドを配置して、VBAによるスライド
　のコピペを実行したところ、コピー元のセクションに対応するコピー先のセクションに対してスライドコピーが
　出来ました。　後で、各セクションに残ったダミーのスライドを削除する手間はありますが、（これはVBA でで
　きるかも）　強烈な省力化ができました。
　これで解決です。　　素晴らしい・・・。　　　ありがとうございました。