0

下記の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>---

この質問は解決済みのためクローズされています。
ベストアンサーとして選択しました

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