VBscriptを教えてください。
下記のVBスクリプトを スクリプト実行 に貼って部分実行すると、下記の画像のエラーが出ます。
何が原因でしょうか? なお、下記のVBスクリプトはPowerpointファイルの図を削除する命令です。
---<start of code>---
Option Explicit
Dim ieTitle
' 引数を解釈する
ieTitle = GetUMSWindowTitle(@ウィンドウ識別名@)
Dim i
Dim s As Shape
Dim c As Collection
Dim start_slide As Integer
start_slide = 1
For i = start_slide To ActivePresentation.Slides.Count
If i = 250 Then
GoTo continue
End If
Set c = New Collection
For Each s In ActivePresentation.Slides(i).Shapes
c.Add s
Next
For Each s In c
If s.Type = msoPicture Then
s.delete
End If
Next
continue:
Next
MsgBox "the process is finished."
On Error Goto 0
---<end of code>---