VBA 차트익히기.xls 파일을 공부하고 있는데요


아래의 cmdDisconnect_click() 가 실행한 후

다시 서버와 connect를 하면 예전에 생성했던 차트가 그대로 나오더라구요

mobjchartstore 에 있는 값을  

    Set mobjchartstore = Nothing

을 통해서 모두 삭제하는것으로 생각되는데..


아닌가요ㅠ  아래는 코드입니다.




Private Sub cmdDisconnect_click()

    disconnectalldata

    Set mobjchartstore = Nothing
    Set mobjserver = Nothing

End Sub


Private Sub disconnectalldata()

    Dim i As Integer
    Dim objEventSink As clsEventSink
   
    For i = 1 To mobjchartsinks.Count
        Set objEventSink = mobjchartsinks(i)
        Set objEventSink.mobjChartsink = Nothing
    Next i
   
    Set mobjchartsinks = Nothing
    Set mobjchartdatas = Nothing

End Sub



이상입니다. 새해복 많이 받으세요~