폰트 검색 결과

해당 글 2건
특정폰트가 사용된 개체(도형) 찾기

첨부한 VBA는 슬라이드에서 '궁서체'폰트로 작성한 개체(도형)를 찾아줍니다. 특히 슬라이드 마스터까지 검색합니다. 그룹으로 묶인 경우도 검색합니다. 표의 경우도 검색합니다. 만약 찾았다면 찾은 부분을 선택해줍니다. 그리고 기본폰트(.Name), 아시아폰트(.NameFarEast), 스크립트폰트(.NameComplexScript), 기타(,.NameOther) 등 어떤 폰트로 사용되었는지, 언어코드는 무엇인지 메시지 박스를 띄워줍니다. '확인'을 누르면 계속 다음 개체를 찾습니다. '취소'를 누르면 찾기를 중단합니다. 다른 폰트를 검색하려면 FontName을 수정하고 매크로를 실행합니다. 더보기 Option Explicit Const FontName = "궁서체" Sub FontFind() Dim pre..
PPT+VBA 2022. 3. 10. 00:07
일본어 입력시 다른 일본어 폰트로 변경이 안될 때

한글 파워포인트에서 일본어를 입력했을 때 다른 일본어 폰트로 변경이 안되는 사례가 발견되었습니다. 일단 내부적인 원인 파악을 위해서 현재 선택된 텍스트에 적용된 여러가지 폰트와 LanguageID를 알아보려면 아래와 같은 코드를 이용할 수 있습니다. Sub test() Dim shp As Shape Dim tr As TextRange Set shp = ActiveWindow.Selection.ShapeRange(1) 'Set tr = shp.TextFrame.TextRange.Characters(2) Set tr = ActiveWindow.Selection.TextRange.Characters(1) Debug.Print "Text: ["; tr.Text; "]" Debug.Print "Name: "; t..
PPT+VBA 2022. 1. 21. 23:38