파워포인트 VBA: 슬라이드 링크 제거하기

파워포인트 VBA: 슬라이드 링크 제거하기

파워포인트 VBA를 사용하면 슬라이드에서 생성된 링크를 손쉽게 제거할 수 있습니다. 링크를 제거하는 방법에 대해 알아보도록 하겠습니다.

1. VBA 에디터 열기

먼저 파워포인트 파일을 열고, 개발자 도구 탭을 클릭한 후 Visual Basic을 선택하여 VBA 에디터를 엽니다.

2. 슬라이드 모듈 선택

VBA 에디터에서 왼쪽에 있는 프로젝트 창에서 슬라이드 모듈을 선택합니다. 슬라이드 모듈에서 링크를 제거하고 싶은 슬라이드를 선택합니다.

3. VBA 코드 작성

이제 VBA 코드를 작성하여 링크를 제거할 수 있습니다. 아래의 예제 코드를 참고하여 작성해보세요.

Sub RemoveLinks()
    Dim sld As Slide
    Dim shp As Shape

    ' 모든 슬라이드에 대해서 반복
    For Each sld In ActivePresentation.Slides
        ' 모든 모양에 대해서 반복
        For Each shp In sld.Shapes
            ' 하이퍼링크가 있는 경우
            If shp.ActionSettings(ppMouseClick).Hyperlink.Address <> "" Then
                ' 링크 제거
                shp.ActionSettings(ppMouseClick).Hyperlink.Delete
            End If
        Next shp
    Next sld
End Sub

위의 코드는 각 슬라이드마다 모든 모양을 검사하고, 하이퍼링크가 있는 경우 해당 링크를 제거합니다.

4. 링크 제거 실행

작성한 코드를 실행하려면 VBA 에디터에서 작성한 코드를 붙여 넣은 후 F5 키를 누르거나, VBA 에디터를 닫은 후 파워포인트 파일의 슬라이드에서 매크로를 실행하면 됩니다.

링크가 제거된 후의 슬라이드를 확인해보세요. 이제 슬라이드를 공유하거나 프리젠테이션을 진행할 때 불필요한 링크로 인한 혼동이 없을 것입니다.

마치며

VBA를 통해 파워포인트 프레젠테이션에서 링크를 제거하는 방법에 대해 알아보았습니다. 위의 예제 코드를 활용하여 자신만의 VBA 매크로를 작성해보세요. 파워포인트 VBA는 슬라이드를 더욱 효과적으로 관리하고 원하는 기능을 추가할 수 있는 좋은 도구입니다.