Powerpointファイル内の特定文字列”hogehoge”を含むテキストボックスを全削除したい。
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>-----