none
On Error GoToステートメントについて RRS feed

  • 質問

  • お世話になっております。

    Option Explicit

    Sub TrapSample()

        On Error GoTo HandleErr
       
       
        ActiveWorkbook.Charts(1).Activate
       
       
        ActiveChart.SizeWithWindow = True
        MsgBox "正常に処理を終了しました"
        Exit Sub
       
    HandleErr:
        MsgBox "グラフシートはありません"
    End Sub

    というコードなのですがエクセルにグラフシートを挿入してもHandleErr:になりMsgBox "グラフシートはありません"と表示されてしまいます。

    エクセルにグラフシートを挿入した際アクティブになりコードに入力されている処理が実行されるには、どうしたらよいか教えて欲しいです。

    よろしくお願い致します。


    ちなみにExcel2016です。
    2016年12月12日 7:08

回答

すべての返信