파워포인트 VBA: 동영상 추가하기

파워포인트 VBA: 동영상 추가하기

파워포인트는 프리젠테이션을 만들고 다양한 요소들을 추가하여 보다 흥미로운 내용을 전달할 수 있는 툴입니다. 이번 포스팅에서는 파워포인트 VBA를 사용하여 동영상을 프레젠테이션 슬라이드에 추가하는 방법에 대해 알아보겠습니다.

1. 동영상 추가하기

VBA를 사용하여 동영상을 파워포인트 슬라이드에 추가하는 방법은 아래와 같습니다.

Sub AddVideoToSlide()
    Dim slide As Slide
    Dim shape As Shape
    Dim videoPath As String
    
    ' 동영상 파일 경로
    videoPath = "C:\Videos\sample.mp4"
    
    ' 현재 슬라이드에 동영상 추가하기
    Set slide = ActivePresentation.Slides(1)
    Set shape = slide.Shapes.AddMediaObject2(videoPath, msoFalse, msoTrue, 10, 10, 400, 300)
    
    ' 동영상 크기 및 위치 조정하기
    shape.Left = 100
    shape.Top = 100
    shape.Width = 600
    shape.Height = 400
End Sub

위의 코드는 파워포인트 VBA를 사용하여 동영상을 슬라이드에 추가하는 코드입니다.

먼저, videoPath 변수에는 동영상 파일의 경로를 지정해야 합니다. 그리고 ActivePresentation.Slides(1)은 동영상을 추가할 슬라이드를 지정하는 것으로, 1은 슬라이드의 인덱스 값입니다. 이 값을 원하는 슬라이드로 변경해야 합니다.

slide.Shapes.AddMediaObject2(videoPath, msoFalse, msoTrue, 10, 10, 400, 300) 함수를 사용하여 동영상을 슬라이드에 추가합니다. 이 함수는 동영상 파일 경로와 동영상의 위치와 크기를 인자로 받습니다.

위의 코드에서는 추가한 동영상의 위치와 크기를 수정하기 위해 shape.Left, shape.Top, shape.Width, shape.Height를 사용하였습니다. 원하는 값으로 수정하여 동영상이 슬라이드에 잘 표시되도록 조정할 수 있습니다.

2. 동영상 제어하기

파워포인트 VBA를 사용하면 동영상의 재생, 일시정지, 정지 등 다양한 제어 작업을 할 수 있습니다. 아래는 이러한 동영상 제어 기능을 사용하는 예제 코드입니다.

Sub ControlVideo()

    Dim slide As Slide
    Dim shape As Shape
    
    ' 동영상이 추가된 슬라이드
    Set slide = ActivePresentation.Slides(1)
    
    ' 동영상 찾기
    For Each shape In slide.Shapes
        If shape.Type = msoMedia Then
            ' 동영상 제어
            shape.AnimationSettings.PlaySettings.PlayOnEntry = msoTrue ' 슬라이드 진입 시 재생
            'shape.AnimationSettings.PlaySettings.PauseAnimation = msoTrue ' 슬라이드 진입 시 일시정지
            'shape.AnimationSettings.PlaySettings.StopAfterSlides = 3 ' 3슬라이드 후 정지
        End If
    Next shape
End Sub

위의 코드는 ControlVideo() 서브루틴을 사용하여 동영상을 재생하거나 일시정지, 정지하는 방법을 보여줍니다.

For Each shape In slide.Shapes를 사용하여 슬라이드의 모든 요소를 순회하면서 동영상을 찾습니다. shape.Type = msoMedia를 통해 동영상인지 확인하고, shape.AnimationSettings.PlaySettings.PlayOnEntry를 통해 슬라이드 진입 시 동영상을 재생하도록 설정할 수 있습니다. 추가적으로 shape.AnimationSettings.PlaySettings.PauseAnimation을 사용하면 슬라이드 진입 시 동영상을 일시정지하고, shape.AnimationSettings.PlaySettings.StopAfterSlides을 사용하면 일정 슬라이드 이후에 동영상을 정지할 수 있습니다.

이러한 기능들을 활용하여 동영상을 보다 동적으로 제어할 수 있습니다.

3. 마무리

이 포스팅에서는 파워포인트 VBA를 사용하여 동영상을 프레젠테이션 슬라이드에 추가하는 방법과 동영상의 제어에 대해 알아보았습니다. 동영상은 프레젠테이션에 흥미를 더하고 내용을 보완하는데 유용한 요소입니다. VBA를 사용하면 동영상을 보다 효과적으로 활용할 수 있으며, 필요에 따라 동영상을 제어할 수도 있습니다.

더 많은 파워포인트 VBA 기능을 익히고 싶다면 공식 파워포인트 VBA 문서를 참고하시기 바랍니다. 파워포인트 VBA를 통해 보다 다이나믹한 프레젠테이션을 만들어보세요!