모든 기존 워크 시트의 모든 차트를 Excel 통합 문서에서 새로 만든 워크 시트로 일괄 이동하는 2 가지 방법

엑셀 통합 문서의 각 워크시트에 여러 개의 차트가 포함되어 있고, 이제 모든 차트를 새로 만든 워크시트로 일괄 이동하고 싶다면 이 글을 참고하세요. 두 가지 간편한 방법을 소개합니다.

Excel 통합 문서의 각 워크 시트에있는 데이터에 대한 차트를 만든 후 이러한 차트에 따라 데이터를 더 잘 분석하기 위해 이러한 모든 차트를 동일한 워크 시트에 수집 할 수 있습니다. 즉, 모든 항목을 새 워크 시트로 이동할 수 있습니다. 차트가 적은 경우 다음 방법 1을 사용하여 하나씩 이동할 수 있습니다. 그러나 차트가 무수히 많으면 후자를 활용하는 것이 좋습니다.

방법 1 : 차트를 하나씩 수동으로 이동

1. 먼저 모든 차트를 이동할 새 워크 시트를 만듭니다.
2. 그런 다음 워크 시트를 열고 그 안에있는 차트에 피치합니다.
3. 다음으로 차트를 마우스 오른쪽 버튼으로 클릭하고 컨텍스트 메뉴에서 "차트 이동"을 선택합니다.
4. "차트 이동"팝업 대화 상자의 "개체 위치"목록에서 새 시트를 선택하고 "확인"을 클릭합니다.
5. 한 번에 선택한 차트가 이동됩니다.
6. 이제이 방법을 사용하여 모든 워크 시트의 모든 차트를 하나씩 처리 할 수 ​​있습니다.

방법 2 : Excel VBA로 일괄 이동

1. 시작하려면 "에 따라 Excel VBA 편집기를 시작하십시오.Excel에서 VBA 코드를 실행하는 방법".
2. 그런 다음 모듈 또는 프로젝트에 다음 코드를 넣습니다.

Sub MoveAllCharts()
    Dim strNewSheet As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objChart As Object

    'Create a new sheet
    strNewSheet = "Charts"
    ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
    Set objTargetWorksheet = Application.Worksheets(strNewSheet)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strNewSheet Then
           'Move each chart to the new sheet one by one
           For Each objChart In objWorksheet.ChartObjects
               objChart.Chart.Location xlLocationAsObject, strNewSheet
           Next objChart
        End If
    Next

    objTargetWorksheet.Activate
End Sub

3. 그 후 "F5"를 직접 눌러이 매크로를 지금 실행하십시오.
4. 매크로가 완료되면 VBA 편집기를 종료합니다.
5. Excel 주 창에서 모든 차트를 볼 수있는 새 워크 시트를 볼 수 있습니다.

비교

손상된 Excel 파일 복구

Excel 파일은 때때로 충돌이 발생할 수 있으므로 손상되기 쉽습니다. 그런 상황에서 강력하고 신뢰할 수있는 xlsx 복구 도구, 같은 DataNumen Excel Repair. Excel 파일이 손상되어 Excel의 자동 복구 기능이 작동하지 않을 때 유용합니다.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 수리 SQL 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM