파워포인트 차트 데이터 편집 안됨 - pawopointeu chateu deiteo pyeonjib andoem

Option Explicit

Sub RecoverData()
    Dim oSld As Slide
    Dim oShp As Shape
    
    Dim xlApp As Object ' New Excel.Application
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Dim xlBook As Object    'Excel.Workbook
    Set xlBook = xlApp.Workbooks.Add
    Dim xlSht As Object 'Excel.Worksheet
    Dim c%
    
    On Error Resume Next
    
    xlApp.ScreenUpdating = False
    For Each oSld In ActivePresentation.Slides
        For Each oShp In oSld.Shapes
            If oShp.Type = msoChart Then
                c = c + 1
                If c = 1 Then
                    Set xlSht = xlBook.Worksheets(1)
                Else
                    Set xlSht = xlBook.Worksheets.Add
                End If
                xlSht.Move After:=xlBook.Worksheets(xlBook.Worksheets.Count)
                recoverDataFromChart xlSht, oShp
                 
            End If
        Next oShp
         
    Next oSld
    
    xlApp.ScreenUpdating = True
    'Set xlApp = Nothing
End Sub


Function recoverDataFromChart(oxlSht As Object, shp As Shape)

    Dim sld As Slide
    Dim cht As Chart
    Dim srs As Series
    Dim i%, x%
 
    Set cht = shp.Chart
    oxlSht.Name = shp.Name
    'If cht.PlotBy = xlRows Then Debug.Print "xlRows"
    
    For i = 1 To cht.SeriesCollection.Count
    
        Set srs = cht.SeriesCollection(i)
        For x = 1 To UBound(srs.XValues)
            
            If i = 1 Then
                oxlSht.Cells(x, i) = srs.XValues(x)    'Format(srs.XValues(x), "yy-mm-dd")
                If shp.Parent.SlideIndex = 1 Then oxlSht.Cells(x, i).NumberFormat = "YYYY-MM"
                ElseIf shp.Parent.SlideIndex = 2 Then oxlSht.Cells(x, i).NumberFormat = "MM-DD"
            End If
            
            oxlSht.Cells(x, i + 1) = srs.Values(x)
            If shp.Parent.SlideIndex <> 3 Then oxlSht.Cells(x, i + 1).NumberFormat = "0.00%"
        
        Next x
        
    Next i
    
End Function

피피티믹스 ㅣ사업자명 : 윈피티 ㅣ 대표 : 서범창 ㅣ 서울시 동대문구 청계천로 433, 미우빌딩 1203호 

전화 070-4466-5551 / 02-541-7864 ㅣ 팩스 02-744-7864 ㅣ 이메일  

사업자등록번호 204-23-67994  ㅣ 통신판매신고번호 : 제 2018-서울성북-0204호  |   호스팅제공자 : (주)아임웹 

Copyright ⓒ 2022 ppt템플릿 쇼핑몰 피피티믹스 All rights reserved.

파워포인트는 엑셀과 달라서 데이터를 보려면 엑셀 시트를 띄워야 합니다. 이것이 귀찮은 사람들은 데이터와 그래프를 한눈에 볼 수 있도록 차트 바로 아래에 추가해 보세요. 차트를 분석하는데 도움이 될 겁니다. 오늘은 차트에 데이터 표를 어떻게 추가하는지 알아 보도록 하겠습니다.

▼ 슬라이드에는 차트만 있고 데이터는 없습니다. 데이터를 보려면 엑셀 시트를 띄워야 합니다. 차트를 선택하고 [차트 도구] 탭 > [디자인] 탭 > [데이터 편집]리본 메뉴를 누르면 차트에 쓰인 데이터들을 보거나 편집할 수 있습니다.

▼ 이렇게 매번 띄우는 것이 귀찮다면 데이터를 차트 바로 아래에 추가할 수 있습니다. [차트 도구] 탭 > [디자인] 탭 > [차트 요소]추가 리본 메뉴를 클릭해 보세요. 

▼ [차트 요소 추가]의 하위 메뉴에서 [데이터 표]로 갑니다. 데이터를 표시할 수 있는 메뉴는 2가지 종류가 있습니다. 두 개의 차이점은 범례 표지의 표시 여부 입니다. 

▼ 먼저 [데이터 편집] > [범례 표지 포함]을 선택해 보세요. 차트 하단에 데이터 표가 나타납니다. 그리고 제일 왼쪽에는 [범례 표지]와 [범례명]이 있습니다. 범례 표지는 차트 색깔을 가리키는 사각형 아이콘을 말합니다. 

▼ 다음으로 [범례 표지 없음]을 선택해 봅니다. 범례명은 있는데 차트를 나타내는 사각형 아이콘은 사라졌습니다. 두 메뉴의 차이 입니다. 

▼ 추가한 데이터 표의 좀더 디테일한 디자인을 원한다면 데이터 표 서식 창을 열어야 합니다. [차트 요소 추가] > [데이터 표] > [기타 데이터 표 옵션]메뉴를 선택합니다. 

▼ 파워포인트 오른쪽 화면에 옵션창이 나타납니다. 그곳에는 데이터 표와 관련된 서식 옵션들이 있습니다. 주로 테이블 테두리에 관련된 옵션입니다. 이상으로 분석을 좀더 쉽게 하기 위해 차트를 만들 때 참고한 데이터들을 차트 아래 함께 표시 하는 방법에 대해 알아 보았습니다.