본문 바로가기
■ 칼퇴를 위한 VBA : 사례/- VBA for 파워포인트

파워포인트 VBA: 슬라이드 추가하기

by 포탈메이커 2023. 6. 29.

파워포인트 VBA: 슬라이드 추가하기

마이크로소프트 파워포인트는 강력한 프레젠테이션 도구로서 많은 사람들이 널리 사용하고 있습니다. 파워포인트 VBA(Visual Basic for Applications)를 이용하면 파워포인트의 기능을 확장하고 자동화할 수 있습니다. 이번 포스팅에서는 VBA를 사용하여 파워포인트에 슬라이드를 추가하는 방법에 대해 알아보겠습니다.

슬라이드 추가하기

파워포인트 VBA를 사용하여 슬라이드를 추가하는 방법은 간단합니다. 먼저, "슬라이드 쇼" 모드가 아닌 "일반" 모드에서 VBA를 실행해야 합니다.

VBA 코드를 작성하기 전에, 파워포인트 프레젠테이션 파일을 열고 "개발" 탭에서 "Visual Basic" 버튼을 클릭하여 VBA 편집기를 엽니다. 그리고 "삽입" 메뉴에서 "모듈"을 선택하여 새로운 모듈을 추가합니다.

Sub AddSlide()
    Dim ppt As Presentation
    Dim sld As Slide

    ' 현재 열려있는 프레젠테이션 가져오기
    Set ppt = ActivePresentation

    ' 슬라이드 추가
    Set sld = ppt.Slides.Add(ppt.Slides.Count + 1, ppLayoutBlank)

    ' 슬라이드 정보 설정
    sld.Shapes.Title.TextFrame.TextRange.Text = "새로운 슬라이드"
    sld.Shapes(2).TextFrame.TextRange.Text = "여기에 내용을 작성하세요."

    ' 슬라이드 선택
    sld.Select
End Sub

위의 코드는 슬라이드를 추가하는 VBA 매크로입니다. 먼저, ppt 변수를 선언하여 현재 열려있는 프레젠테이션을 가져옵니다. 그리고 sld 변수를 선언한 후, ppt.Slides.Add() 메서드를 사용하여 슬라이드를 추가합니다. ppLayoutBlank는 빈 슬라이드 레이아웃을 사용한다는 것을 의미합니다.

추가된 슬라이드의 정보를 설정하기 위해 sld.Shapes.Title.TextFrame.TextRange.Textsld.Shapes(2).TextFrame.TextRange.Text를 사용하여 제목과 내용을 설정할 수 있습니다.

마지막으로, sld.Select를 사용하여 새로 추가된 슬라이드를 선택합니다.

VBA 매크로 실행하기

VBA 코드를 작성한 후에는 매크로를 실행해보아야 합니다. 파워포인트의 화면에서 "개발" 탭의 "매크로" 버튼을 클릭하여 매크로 대화 상자를 엽니다. 그리고 "AddSlide" 매크로를 선택한 후 실행 버튼을 클릭합니다.

결과 확인하기

매크로를 실행하면 현재 슬라이드 뒤에 새로운 슬라이드가 추가됩니다. 추가된 슬라이드의 제목은 "새로운 슬라이드"로 설정되고, 내용은 "여기에 내용을 작성하세요."로 표시됩니다.

마무리

파워포인트 VBA를 사용하여 슬라이드를 추가하는 방법에 대해 알아보았습니다. VBA를 통해 파워포인트를 자동화하면 작업 효율성을 높일 수 있습니다. 추가로 파워포인트 VBA에는 다양한 기능과 속성이 있으므로, 특정 작업을 자동화하기 위해 VBA를 사용해보세요. 이 포스팅이 여러분에게 도움이 되길 바랍니다.