0

Powerpoint2016のファイルを開いて、下記のマクロを実行したところ、スライドの画像は全削除できましたが、添付画像にある「オブジェクトの選択と表示」の テキストボックス xxや Text Box Xは消えませんでした。

エラーメッセージはオブジェクト変数がありません。です。

If s.Type = msoTextBox Thenで処理が止まります。

どなたか原因が判りますでしょうか?

-----<start of code>-------

Sub delete()
    Dim s As Shape  'sはshapeオブジェクトを入れる変数
    Dim c As Collection   'cはコレクション
    Dim start_slide As Integer 'start_slideはスライド番号を入れる変数
    Const FIND_STR = "テキスト"

    start_slide = 1
    For i = start_slide To ActivePresentation.Slides.Count
        'If i = 254 Then
        '   GoTo continue
        'End If
        Set c = New Collection
        For Each s In ActivePresentation.Slides(i).Shapes '変数sにアクティブスライド番号のすべてのshapeオブジェクトを入れる。
            c.Add s
        Next

'テキストボックスのshapeオブジェクト名に“テキスト ボックス”を含むものは全削除
        For Each s In c
          If s.Type = msoTextBox Then
           'If s.Title Like FIND_STR & "*" Then
            '  s.delete
           'End If
          End If
       
'画像は全削除
          If s.Type = msoPicture Then
               s.delete
          End If
       Next

'continue:
Next
   'MsgBox "the process is finished."
End Sub

-----<start of code>-------

gorby5775 質問の編集
回答とコメントは、会員登録(無料)で閲覧できるようになります。