파워포인트 VBA: 도형 추가하기

파워포인트 VBA: 도형 추가하기

많은 사람들이 파워포인트를 사용하여 프리젠테이션을 만들고 발표를 진행하곤 합니다. 파워포인트는 매우 유용한 도구이지만 때로는 원하는 디자인 요소가 없어 원하는 내용을 표현하기 어렵습니다. 이런 경우에 파워포인트 VBA(Visual Basic for Applications)를 사용하여 도형을 추가하면 원하는 디자인을 구현할 수 있습니다. 이번 글에서는 파워포인트 VBA를 사용하여 도형을 추가하는 방법을 알아보겠습니다.

Step 1: VBA 편집기 열기

파워포인트에서 VBA를 사용하기 위해서는 VBA 편집기를 열어야 합니다. VBA 편집기를 열기 위해 "개발자" 탭을 선택하고 "Visual Basic"을 클릭하세요. 만약 "개발자" 탭이 보이지 않는다면 "파일" - "옵션" - "리본 메뉴 사용자 지정"에서 "개발자"를 선택하세요.

Step 2: 새 모듈 추가하기

VBA 편집기를 열면 "삽입" - "모듈"을 선택하여 새 모듈을 추가하세요. 이 모듈은 도형을 추가하는 VBA 코드를 작성할 공간입니다.

Step 3: 도형 추가하기

새 모듈을 추가한 후, 다음과 같은 VBA 코드를 입력하세요.

Sub AddShape()
    Dim slide As Slide
    Dim shape As Shape

    ' 현재 슬라이드를 가져온다
    Set slide = ActiveWindow.View.Slide
    
    ' 도형을 추가한다
    Set shape = slide.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 100)
    
    ' 도형의 속성을 설정한다
    shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
    shape.TextFrame.TextRange.Text = "새로운 도형"
    
    ' 도형을 선택한다
    shape.Select
End Sub

Step 4: 도형 확인하기

VBA 코드 작성을 마치면 "디버깅" - "컴파일 VBA 프로젝트"를 선택하여 코드를 확인합니다. 만약 오류가 없다면 코드가 정상적으로 작성된 것입니다.

Step 5: 코드 실행하기

코드를 작성한 후, "디버그" - "실행"을 차례로 선택하거나, 단축키인 F5를 눌러서 코드를 실행합니다. 코드가 실행되면 현재 슬라이드에 도형이 추가되고 도형의 색상과 텍스트가 설정됩니다. 코드를 실행한 후에는 파워포인트에 도형이 추가된 것을 확인할 수 있습니다.

 

이와 같이 파워포인트 VBA를 사용하여 도형을 추가할 수 있습니다. 도형의 크기, 색상, 텍스트 등의 속성을 조정하여 원하는 디자인을 구현할 수 있습니다. VBA를 사용하면 파워포인트의 기능을 더욱 확장시킬 수 있으므로, 필요한 경우에는 VBA를 활용해보세요!