파워포인트 VBA: 애니메이션 추가하기

파워포인트 VBA: 애니메이션 추가하기

애니메이션은 파워포인트 프레젠테이션을 더욱 흥미롭게 만들어주는 효과적인 도구입니다. 애니메이션을 추가하면 슬라이드 전환 시 요소들이 움직이거나 변화하는 모션을 제공할 수 있습니다. 이번 블로그 포스트에서는 파워포인트 VBA(Visual Basic for Applications)를 사용하여 애니메이션을 추가하는 방법에 대해 알아보겠습니다.

VBA 마크다운 배경 애니메이션

파워포인트 VBA를 사용하면 슬라이드 배경에 다양한 애니메이션 효과를 적용할 수 있습니다. 아래의 코드를 사용하면 배경에 반짝이는 별빛 애니메이션을 적용할 수 있습니다.

Sub AddBackgroundAnimation()
    Dim sld As Slide
    Dim bgAnim As AnimationSettings
    Dim eff As Effect

    Set sld = ActivePresentation.Slides(1)
    Set bgAnim = sld.Background.AnimationSettings

    bgAnim.EntryEffect = ppEffectRandomBars
    bgAnim.EntryEffectDuration = 2
    bgAnim.AdvanceMode = ppAdvanceOnTime
    bgAnim.AdvanceTime = 1

    Set eff = bgAnim.AnimationEffects.Add(EffectID:=msoAnimEffectFly, trigger:=msoAnimTriggerOnPageClick)
    eff.Timing.Duration = 3

    sld.DisplayMasterShapes = msoFalse
End Sub

위의 코드는 첫 번째 슬라이드의 배경에 별빛 애니메이션을 추가하는 예제입니다. AddBackgroundAnimation 서브루틴을 호출하면 슬라이드를 실행할 때 배경에 독특한 애니메이션 효과가 보입니다.

VBA 마크다운 텍스트 애니메이션

텍스트 애니메이션은 파워포인트 슬라이드에서 가장 많이 사용되는 애니메이션 중 하나입니다. 텍스트 애니메이션은 단어, 문장 또는 문자를 한 번에 표시하거나 한 글자씩 나타나게 하는 등 다양한 효과를 제공할 수 있습니다. 아래의 VBA 코드로 텍스트 애니메이션을 추가해 보세요.

Sub AddTextAnimation()
    Dim sld As Slide
    Dim shp As Shape
    Dim eff As Effect

    Set sld = ActivePresentation.Slides(2)
    Set shp = sld.Shapes(1)

    shp.TextFrame.TextRange.Text = "애니메이션 효과를 적용할 텍스트입니다."
    shp.TextFrame.TextRange.Font.Size = 24

    Set eff = sld.TimeLine.MainSequence.AddEffect(shape:=shp, effectId:=msoAnimEffectFade, trigger:=msoAnimTriggerWithPrevious)
    eff.Timing.Duration = 2
    eff.Timing.TriggerDelayTime = 1

    sld.DisplayMasterShapes = msoFalse
End Sub

위의 코드는 두 번째 슬라이드에서 텍스트 애니메이션을 추가하는 예제입니다. AddTextAnimation 서브루틴을 호출하면 텍스트가 서서히 나타나는 애니메이션 효과를 확인할 수 있습니다.

VBA 마크다운 개별 요소 애니메이션

파워포인트 VBA를 사용하면 텍스트뿐만 아니라 그래프, 그림, 도형 등 다양한 요소에도 애니메이션을 적용할 수 있습니다. 아래의 VBA 코드 예제를 사용하여 개별 요소에 애니메이션을 추가해 보세요.

Sub AddElementAnimation()
    Dim sld As Slide
    Dim shp As Shape
    Dim eff As Effect

    Set sld = ActivePresentation.Slides(3)
    Set shp = sld.Shapes(1)

    shp.Left = 200
    shp.Top = 200

    Set eff = sld.TimeLine.MainSequence.AddEffect(shape:=shp, effectId:=msoAnimEffectZoom, trigger:=msoAnimTriggerOnPageClick)
    eff.Timing.Duration = 2

    sld.DisplayMasterShapes = msoFalse
End Sub

위의 코드는 세 번째 슬라이드에서 도형 요소에 확대/축소 애니메이션을 추가하는 예제입니다. AddElementAnimation 서브루틴을 호출하면 슬라이드를 클릭할 때마다 도형이 확대되거나 축소되는 애니메이션 효과를 확인할 수 있습니다.

결론

파워포인트 VBA를 사용하면 애니메이션을 쉽게 추가할 수 있습니다. 배경, 텍스트, 그래프, 도형 등 다양한 요소에 애니메이션 효과를 적용하여 프레젠테이션을 더욱 흥미롭게 만들 수 있습니다. 이번 포스트에서는 VBA를 사용한 애니메이션 추가에 대해 간단히 알아보았습니다. 추가적인 기능은 Microsoft Office VBA 도움말을 참고하시기 바랍니다.