스크립트 가능성으로 PowerPoint/Keynote 프레젠테이션 작성?
-
18-09-2019 - |
문제
최근에는 회사에 PowerPoint 프레젠테이션을 만들고 있습니다. 나는 대부분 PowerPoint에서 이것을하고 있습니다. 기본적으로 그들은 동일한 디자인으로 만들어 지지만 세트 장소에서는 다른 숫자와 PowerPoint Bar Graph / Pie 그래프를 생성하는 데 사용되는 다른 숫자입니다. (기본적으로 삽입 될 때이 파이 그래프 객체가 있고 디자인을 변경할 수있는 옵션을 제공하고 팝업이 튀어 나오는 일부 Excel 스프레드 시트에 숫자를 입력하십시오).
내가 100 개 회사 에서이 작업을 수행한다고 가정 해 봅시다. 필요한 모든 값을 지정하는 방법이없고 PowerPoint가 어떻게 든 만들어 졌습니까? 디자인 기반을 제공 할 수 있습니다. 동적 값 (래스터는 없음)에 들어가서 동적 값을 변경하기 만하면됩니다.
이것은 PowerPoint에 대한 의문도 아닙니다. 기조 연으로 할 수 있다면 (파이 그래프, 막대 그래프 및 숫자 및 정적 텍스트가있는 장소를 설정하는 것과 마찬가지로이 작업을 수행 할 수 있다면, 그것은 또한 작동합니다.
편집하다: PowerPoint Pie Graphs / Bar 그래프가 XXCel 스프레드 시트에서 생성된다는 것을 알고 있습니다. 내 프레젠테이션에는 100 개 정도의 프레젠테이션에 걸쳐 정적 위치의 다른 변화 값과 함께이 중 약 3 개가 있습니다. 프로세스의 대부분 또는 대부분을 스크립트하려고합니다.
편집하다: PowerPoint 2007 또는 최신 버전의 Keynote 사용. 기조 연설을 선호하는 스크립팅 방법은 아마도 Python/Django 또는 Macros의 PowerPoint 2007과 함께 사과 스크립트 일 것입니다.
해결책
죄송합니다 이것은 당신에게 돌아 오는 데 며칠이 걸렸고, 문제를 해결해야했습니다. 다음은 요구하는 일을하는 빠르고 효율적인 방법입니다.
- 매크로 가능 파워 포인트를 만듭니다.
- 리본의 삽입 | 차트 명령을 통해 첫 번째 슬라이드에서 단일 파이 차트를 만듭니다. Excel이 열립니다. 열에서 수평 (카테고리) 축 그대로 두십시오 (예 : 1st Qtr, 2nd QRT 등). 에 전설 항목 (시리즈) 축, 몇 개의 열을 확장하고 더 많은 데이터를 추가하십시오. 열 이름이 고유한지 확인하십시오.
- Excel을 닫습니다
- Alt+F11을 눌러 VBE로 이동하십시오.
- 아래 코드를 새 모듈로 복사/붙여 넣으십시오. 다음 변수를 변경하십시오.
chartTemplatePath
그리고 필요한 경우sc.Name
, 당신이 선택한 다른 것에. - 서브 루틴에서 F5를 클릭하여 실행하십시오. 이제 열이있는 것만 큼 많은 차트 슬라이드가 있어야합니다.
.
Sub CreateChartDecksandSave()
Dim chartTemplatePath As String
chartTemplatePath = "C:\Temp\"
Dim myPPT As Presentation
Set myPPT = ActivePresentation
Dim mainChart As Chart
Set mainChart = myPPT.Slides(1).Shapes(1).Chart
Dim scCount As Integer
scCount = mainChart.SeriesCollection.Count
Dim sc As Series
For i = 1 To scCount
Set sc = mainChart.SeriesCollection(1)
myPPT.SaveCopyAs (chartTemplatePath & sc.Name & ".pptx")
sc.Delete
Next
End Sub
이 작업을 수행하고 차트 데이터가 기본 PPT에서 사라지면 괜찮습니다. 차트를 선택하고 이동하십시오. 차트 도구 | 설계 | 데이터를 선택하십시오 그리고 데이터 세트를 전체 테이블로 재 선택하십시오.