글꼴(폰트)이 설치된 슬라이드 찾기 매크로

S Y N O P S I S #VBA로 폰트 찾기

간혹 PT 작업 중에 저장하면 폰트 때문에 저장할 수 없을 때가 있다.

슬라이드가 많아지면 보통 슬라이드를 복제해서 쓰는 경우가 많기 때문에

내가 사용한 글꼴이 어떤 슬라이드에 있는지 일일이 찾아야 한다.

자체적으로 글꼴을 일괄적으로 변환해주는 기능이 있는데 글꼴이 설치되어 있어야 가능하다.

아래 매크로는 '특정 글꼴이 사용되고 있는 슬라이드를 찾고 싶은 경우'에 사용한다.

글꼴을 입력하면 첫번째부터 마지막 슬라이드까지 내가 검색한 글꼴이 사용되는 슬라이드 번호를 알려주고, 해당 위치로 이동한다.

VBA Code

Option Explicit
Dim myShp As Shape
Dim slide_num As Long
Dim myFont As Variant
Dim msg As Long

Sub catch_font()
myFont = InputBox("찾을 글꼴을 입력하세요(와일드카드 사용 가능, ex. 모든 고딕체를 찾는다면 *고딕* 입력)", "글꼴 찾기")
On Error Resume Next
Do While Err.Number = 0
slide_num = slide_num + 1
    For Each myShp In ActivePresentation.Slides(slide_num).Shapes
        If myShp.HasTextFrame = True Then
            If myShp.TextEffect.FontName Like myFont Then
                ActivePresentation.Slides(slide_num).Select
                msg = MsgBox(myShp.TextEffect.FontName & _
                          " 글꼴은" & " " & "현재 " & slide_num & "쪽에 있습니다." & Chr(10) & "검색을 계속 할까요?", vbYesNo)
                    If msg = 7 Then
                    Exit Do
                    End If
            End If
        End If
    Next
Loop
slide_num = 0
msg = 0
Set myShp = Nothing

MsgBox "검색을 종료합니다."
On Error GoTo 0
End Sub

매크로 실행 동영상

 Copyright (2018) Ruahneuma. All Rights Reserved.