Powerpoint 2007 VBA에서 테마 글꼴을 검색하는 방법은 무엇입니까?

Question

누구든지 VBA를 사용하여 Powerpoint 2007 슬라이드 개체에서 테마 글꼴 사용을 감지하는 방법을 알고 있습니까? Shape.TextFrame.TextRange.Font.Name을 보면 글꼴 이름이 고정 된 이름이나 테마 이름 (문서 테마로 변경 될 수 있음)로 지정되었는지 여부와 상관없이 글꼴 이름이 단순한 이름 (예 : "Arial")으로 나타납니다. 개체 모델에서 테마에 연결된 것으로 플래그하는 다른 속성은 표시되지 않습니다 (예 : ObjectThemeColor 색).

감사합니다.

Answer 1

이 직접적인 방법은 (내가 아는) 그러나 당신이 만약/다음으로 확인할 수 없습니다 :

Sub checkthemeFont() 
    Dim s As Shape 
    Set s = ActivePresentation.Slides(1).Shapes(1) 
    Dim f As Font 
    Set f = s.TextFrame.TextRange.Font 

    Dim themeFonts As themeFonts 
    Dim majorFont As ThemeFont 

    Set themeFonts = ActivePresentation.SlideMaster.Theme.ThemeFontScheme.MajorFont 
    Set majorFont = themeFonts(msoThemeLatin) 

    If f.Name = majorFont Then 
     Debug.Print f.Name 
    End If 
End Sub