VBA를 사용하여 PowerPoint 프레젠테이션에 슬라이드를 만들고 추가하는 방법은 무엇입니까?

며칠 전 한 독자가 PowerPoint 프레젠테이션을 처음부터 자동화한 다음 기존 프레젠테이션에 슬라이드를 빠르게 추가하는 방법에 대해 질문했습니다. 나는 그 스크립트가 가장 유용한 PowerPoint 매크로 목록에 있을 수 있다고 생각합니다. 

과거에 언급했듯이 PowerPoint에는 매크로 기록기 가 포함되어 있지 않습니다 (이는 매크로 기록기가 내장되어 있는 Excel 및 Word와 다름). 따라서 PowerPoint를 자동화하는 간단한 매크로를 만드는 데 사용할 수 있는 오래된 Visual Basic for Application이 남아 있습니다. PowerPoint 자동화에 대한 추가 대안이 있지만 이는 이 자습서의 범위를 벗어납니다.

오늘의 짧은 자습서에서는 세 가지 사용 사례를 살펴보겠습니다.

1. 새 프레젠테이션 만들기(공백 또는 템플릿 사용)
2. 기존 프레젠테이션에 슬라이드를 추가합니다.
3. 위에서 언급한 두 가지 경우의 혼합(처음부터 만들기 및 슬라이드 추가)

시작하자.

리본을 보세요. 메뉴에 개발자 항목이 표시되지 않으면 코딩을 시작하기 전에 개발자 탭을 활성화해야 합니다.

개발자 메뉴를 리본으로 표시한 후 계속해서 Developer 를 누른 다음 Visual Basic 버튼을 누르거나 Alt+F11을 눌러 Visual Basic IDE를 엽니다.

PowerPoint 프레젠테이션을 만드는 VBA

1. VB 편집기에서 VBAProject를 마우스 오른쪽 버튼으로 클릭하고 삽입 을 누르십시오 .
2. 모듈 을 선택 합니다.
3. 새로 만들기 모듈에 다음 코드를 붙여넣습니다.

Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub

1. 파일을 누른 다음 저장을 누르십시오.
2. 코드를 실행하려면 실행을 누른 다음 하위/사용자 양식 실행(또는 단순히 F5)을 선택합니다.
3. VB 편집기를 닫습니다.

슬라이드를 삽입하는 VBA

1. VB 편집기에서 VBAProject를 마우스 오른쪽 버튼으로 클릭하고 삽입을 누르십시오.
2. 모듈 선택
3. 새로 만들기 모듈에 다음 코드를 붙여넣습니다.

Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub

1. 파일을 누른 다음 저장을 누르십시오.
2. 코드를 실행하려면 실행을 누른 다음 하위/사용자 양식 실행(또는 단순히 F5)을 선택합니다.
3. VB 편집기를 닫습니다.

새 프레젠테이션을 설정하고 슬라이드를 추가하는 매크로

그것은 위에서 설명한 두 조각을 혼합하는 것입니다.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

다음 으로 VBA 를 사용 하여 PowerPoint 에서 프로그래밍 방식으로 모양을 만드는 방법에 대한 자습서를 살펴볼 수 있습니다.

Excel에서 PowerPoint 프레젠테이션 생성

마지막 경우는 Excel 스프레드시트에서 바로 PowerPoint 프레젠테이션을 만들고 싶은 경우입니다. Word 및 기타 Microsoft 365 응용 프로그램에서 동일한 기술을 사용할 수 있습니다.

• 스프레드시트를 PowerPoint 데이터 모델에 연결(도구 >> 참조)
• Excel 스프레드시트에 단추를 삽입합니다(개발자 >> 삽입 후 명령 단추 선택).
• 스프레드시트 VBA 프로젝트에 아래 VBA 코드를 삽입하십시오(시트 또는 VBA 모듈에 직접).
• 필요에 따라 스크립트를 수정합니다.
• 실행(F5 키)하고 결과를 테스트합니다.

Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

즐기세요 🙂