0

PowerpointVBAを使って、Powerpointファイル内の特定文字列”hogehoge”を含むテキストボックスを全削除したいです。

下記のコードのボールド体の箇所をどう直せば良いでしょうか? 直し方の判る方ご指導ください。

コードができたら、WinActorV6内のシナリオ内でこのPowerpointファイルを開いたあと、ショートカットキーをたたいてこのマクロを自動起動する予定です。

--<Start of code>-----

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

    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
        For Each s In c
            If s.Type = msoTextBox Then
                s.delete
            End If
        Next
'continue:
    Next
   'MsgBox "the process is finished."
End Sub

--<End of code>-----

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