파워포인트 VBA: 슬라이드 배경색 설정하기

파워포인트 VBA: 슬라이드 배경색 설정하기

파워포인트(VBA)를 사용하여 슬라이드 배경색을 설정하는 방법에 대해 알아보겠습니다.

슬라이드 객체 선택하기

먼저, 슬라이드 객체를 선택해야 합니다. 슬라이드 객체를 선택하는 방법에는 여러 가지가 있지만, 여기서는 현재 활성화된 슬라이드를 선택하는 방법을 소개하겠습니다.

1. 현재 슬라이드 객체를 얻기 위한 VBA 코드

VBA 코드를 사용하여 현재 활성화된 슬라이드 객체를 얻을 수 있습니다. 아래 코드를 사용하면 현재 슬라이드 객체를 변수에 할당할 수 있습니다.

Dim curSlide As Slide
Set curSlide = Application.ActiveWindow.View.Slide

위의 코드에서 curSlide 변수는 현재 슬라이드 객체를 나타냅니다.

2. 특정 슬라이드 객체를 얻기 위한 VBA 코드

특정 슬라이드를 선택하려면 슬라이드의 인덱스 값을 이용하여 해당 슬라이드 객체를 얻을 수 있습니다. 아래 코드를 사용하면 2번째 슬라이드 객체를 얻을 수 있습니다.

Dim slide2 As Slide
Set slide2 = ActivePresentation.Slides(2)

위의 코드에서 slide2 변수는 2번째 슬라이드 객체를 나타냅니다. 인덱스 값은 1부터 시작합니다.

슬라이드 배경색 설정하기

이제 슬라이드의 배경색을 설정하는 방법을 알아보겠습니다. Slide.Background 속성을 사용하여 배경색을 설정할 수 있습니다.

1. 배경색 설정을 위한 VBA 코드

아래의 VBA 코드를 사용하여 현재 슬라이드의 배경색을 설정할 수 있습니다.

curSlide.Background.Fill.ForeColor.RGB = RGB(255, 0, 0)

위의 코드에서 RGB(255, 0, 0)는 빨간색을 나타냅니다. 필요에 따라 다른 색상 코드를 사용할 수 있습니다. RGB 색상 값은 각각 빨강, 초록, 파랑의 성분을 나타냅니다. 각 성분은 0부터 255까지의 값을 가질 수 있습니다.

2. 배경색 변경 시 효과 적용하기

위의 코드를 사용하면 현재 슬라이드의 배경색이 즉시 변경됩니다. 그러나 원하는 대로 특정 시점에 배경색을 변경하려면 다른 VBA 코드를 사용해야 합니다. 아래의 코드를 사용하여 특정 시간에 배경색을 변경할 수 있습니다.

With curSlide.SlideShowTransition
    .AdvanceOnTime = True
    .AdvanceTime = 3 ' 3초 후에 배경색 변경
    .HideAdvanceTime = True
End With

curSlide.SlideShowTransition.Duration = 1 ' 1초 동안 페이드 효과 적용
curSlide.Background.Fill.ForeColor.RGB = RGB(0, 0, 255)

위의 코드를 사용하면 3초 후에 바탕 화면의 배경색이 파란색으로 변경되며, 1초 동안 페이드 효과가 적용됩니다.

마무리

VBA를 사용하여 파워포인트에서 슬라이드 배경색을 설정하는 방법에 대해 알아보았습니다. 슬라이드 객체를 선택한 후 Slide.Background.Fill.ForeColor.RGB 속성을 활용하면 배경색을 원하는 대로 변경할 수 있습니다. 추가적으로 특정 시간에 효과를 적용하기 위해 SlideShowTransition 속성을 사용할 수 있습니다.

 

참고: 이 글은 파워포인트 2016 버전을 기준으로 작성되었습니다. 다른 버전의 파워포인트에서는 일부 코드가 작동하지 않을 수 있습니다.