481런타임 에러가 발생하면서 그림을 찾을 수 없다고 합니다

[솔솔마루]

========================================================================================

현재 사용하는 엑셀 버젼을 기재하시면 좀더 정확하고 신속한 답변을 얻으실 수 있습니다. 

엑셀 버젼(예: 2007) : 2010

========================================================================================

 sheet1에 있는 버튼을 눌러서 설문을 시작합니다.

테스트할 경우에는 5,6학년보다는 1~4학년을 선택하세요..

시간을 줄이기 위해서

1차 입력 후  481런타임 에러가 발생하면서 중지가 됩니다.  디버그를 하지 않고 종료를 누른 후

Sheet2(powerplace)가 이상이 없나 확인 후 다시 실행을 시키면 오류없이 작동이 됩니다.

또는 검사하기를 누르기 전에 시트2를 확인한 후에 검사하기를 누르면 오류없이 작동이 되네요..

이유가 무엇인지 궁금합니다.

user_form2 초기화 부분입니다.

--------------

    Dim print_c As Integer
    Const picName = "current_power.gif"
   
    print_c = Application.WorksheetFunction.CountA(Range("a:a"))
    // 동적으로 챠트에서 읽어들일 데이타 부분을 찾기 위해서 넣은 부분
    With Sheets("powerplace").ChartObjects(1)
        .Chart.Export picName, "gif"
        Me.Image1.Width = .Width
        Me.Image1.Height = .Height
        Me.Width = .Width + 160
        Me.Height = .Height + 100
        Me.Image1.Picture = LoadPicture(picName)

      // 디버그할 때 이 부분에서 오류가 발생됩니다.
        Kill picName
    End With
   
    TextBox1.Value = Cells(print_c, 63)    // userform2에 설문결과를 입력하기 위해 현재 테스트삼아 기록
    -------------------------------------

핵심역량 측정(학년구분3).xlsm