VBA Macro/VBA PowerPoint
글꼴(폰트)이 설치된 슬라이드 찾기 매크로
루아흐뉴마
2017. 10. 14. 02:41
반응형
S Y N O P S I S #VBA로 폰트 찾기
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
매크로 실행 동영상

반응형