PowerPoint VBA에서 메시지 및 입력란으로 작업하는 방법은 무엇입니까?

의견을 살펴보면 PowerPoint에서 Visual Basic 입력 및 메시지 상자를 사용하는 방법에 대한 몇 가지 독자 질문을 보았습니다.

이 자습서에서는 프레젠테이션 생성을 자동화할 때 이러한 기능을 사용하는 데 도움이 되는 매우 기본적인 기초 지식을 제공합니다.

개발자 탭 설정

먼저 PowerPoint용 개발자 환경을 활성화해야 합니다. 이 튜토리얼에 따라 개발 탭 을 설정 하십시오.

PowerPoint에서 개발자 메뉴로 이동하여 Visual Basic을 누르십시오.

프로젝트 트리에서 프레젠테이션을 마우스 오른쪽 버튼으로 클릭하고 삽입을 누른 다음 모듈을 선택합니다. 새 VBA 모듈이 생성되며, 이 모듈에서 코드를 작성합니다.

PowerPoint의 메시지 상자

메시지 상자는 일종의 설명이 필요하며 최종 사용자에게 유용한 정보를 표시하는 것이 목표입니다. 모듈에 다음 코드를 작성하십시오.

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

F5 또는 실행을 누르고 결과를 확인하십시오.

메시지 및 입력 상자 예

메시지 상자와 달리 입력 상자는 사용자로부터 피드백을 얻기 위해 사용됩니다. 아래의 예를 살펴보겠습니다. 스크립트는 프레젠테이션에 새 슬라이드를 자동으로 삽입합니다.

구현할 내용은 다음과 같습니다.

1. 먼저 추가할 슬라이드 수를 입력하라는 메시지가 사용자에게 표시됩니다(입력 상자 사용).
2. 그런 다음 생성할 슬라이드 수를 사용자에게 알립니다(메시지 상자 사용).
3. 마지막으로 프로그래밍 방식으로 슬라이드를 생성합니다.
4. 마지막으로 수정된 프레젠테이션을 저장합니다.

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

도움이 되었기를 바랍니다. 필요에 따라 자유롭게 의견을 남겨주세요.