Vba를 사용하여 차트를 삭제하는 방법(예제 포함)

VBA에서 다음 방법을 사용하여 Excel에서 차트를 삭제할 수 있습니다.

방법 1: 활성 시트에서 모든 그래픽 제거

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

이 특정 매크로는 Excel의 현재 활성 시트에서 모든 차트를 제거합니다.

방법 2: 전체 통합 문서에서 모든 차트 제거

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

이 특정 매크로는 전체 Excel 통합 문서의 각 시트에서 모든 차트를 제거합니다.

다음 예에서는 각 방법을 실제로 사용하는 방법을 보여줍니다.

예 1: 활성 시트에서 모든 그래픽 삭제

두 개의 차트가 포함된 다음 Excel 시트가 있다고 가정합니다.

이 시트에서 모든 차트를 제거하려면 다음 매크로를 생성할 수 있습니다.

 Sub DeleteActiveSheetCharts()
ActiveSheet.ChartObjects.Delete
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

두 차트가 모두 시트에서 제거되었습니다.

예 2: 전체 통합 문서에서 모든 차트 제거

두 개의 차트가 더 포함된 Excel 통합 문서에 또 다른 시트가 있다고 가정해 보겠습니다.

다음 매크로를 만들어 통합 문서의 두 시트에서 모든 그래픽을 제거할 수 있습니다.

 Sub DeleteAllWorkbookCharts()

Dim wk As Worksheet

For Each wk In Worksheets

    If wk.ChartObjects.Count > 0 Then
        wk.ChartObjects.Delete
    End If
    
Next wk

End Sub

이 매크로가 실행되면 두 시트의 모든 그래픽이 삭제됩니다.

이 예에서는 시트 두 개에서만 차트를 제거했지만 이 매크로는 시트 수에 관계없이 Excel 통합 문서에서 작동합니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA:셀 값을 기준으로 행을 삭제하는 방법
VBA: 이름에 특정 텍스트가 포함된 경우 시트를 삭제하는 방법
VBA: 파일을 삭제하는 방법