針對Excel VBA開發大量製圖，偶發因Windows製圖程序問題導致程式中斷，透過On Error GoTo來繼續延續程式，讓程式可以在停等後，等Windows製圖程序完成再繼續執行程式

Sub Demo_Error_Loop()

count_a = 0
On Error GoTo RetryCode
x = 10.2
y = 0
Z = x / y
MsgBox "Z Value=" & Z
RetryCode:
    count_a = count_a + 1
    If count_a < 10 Then
        release4COPY
        Resume
    Else
        Resume Next
    End If

    

End Sub

Sub release4COPY()

    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 2
    waitTime = TimeSerial(newHour, newMinute, newSecond)

    Application.Wait waitTime

End Sub