이 코드를 고려1004 런타임 오류 Excel 차트를 추가하는 방법에
Subroutine(ByRef objExcelApp As Object)
Dim objChart As Excel.Chart<br>
Dim objChartAdd As Excel.Chart
Set objChart = Charts.Add
'Plotting graph in excel
'After completion
Set objChart = Nothing
End Sub
이 코드를 실행하면 모든 것이 잘 실행하고, 다른 보고서 유형으로 다시 실행하면 응용 프로그램을 닫지 않고 - 그것은 Set objChart = Charts.Add에서 오류 1004하라는 메시지
도움이 될만한 사람은 누구나 제공 할 수 있습니다.
UI에 차트를 추가 할 수 있습니까? 차트를 추가 할 수없는 상황에 처해 있습니다 (여러 장을 선택했거나 통합 문서가 활성화되지 않았거나 보호 된 범위가 활성 상태 등).
크리스
안녕하세요 Chris 님, 응용 프로그램 (처음 실행)을 시작하고 실행합니다. 당시 Excel 시트에 차트를 생성 할 수있었습니다. 응용 프로그램을 다시 시작하지 않고 응용 프로그램을 재실행하지 않고 다시 실행하면 오류가 발생하여 매우 익숙합니다. 오류를 추적 할 수있는 방법을 알려주십시오. 예. 맞습니다. 차트 – tangyorangesour
내 계획은 다음과 같습니다 : 매크로가 깨지는 지점까지 실행하십시오. 그런 다음 디버거를 중지하고 Excel로 돌아가서 "차트 삽입"을 누르십시오. 버튼이 비활성화 된 경우 Excel에서 이유를 알아낼 수 있는지 확인하십시오. 오류 메시지가 나타나면 도움이 될 것입니다. 그것이 작동하고 차트를 삽입 할 수 있다면 우리는 다른 문제가 있습니다! –
Chris, 매크로가 아니에요. VB 프로그램입니다. 그게 당신이 방금 공유 팁 - 감사합니다 :) 방금 버그를 수정했습니다 - 세트 objchart = (EXCELOBJECT) .charts.add 이제 내 첫 질문에 대한 실행은 성공적으로 첫 번째 실행 그리고 재실행에 실패한 후, 논리적 인 이유가 첫 번째 실행에서 성공을 정당화 했는가? 왜 나중에 실패했는지. 누군가가 같은 지식에 관한 지식을 공유한다면 정말 감사 할 것입니다. – tangyorangesour
자세한 내용을 알아보십시오. 게시 된 코드가 컴파일되지 않습니다. 제목은 Sub YourSubName (...)과 같아야합니다. Dim objChart ...
은 유효하지 않습니다. –