일본어 입력시 다른 일본어 폰트로 변경이 안될 때
한글 파워포인트에서 일본어를 입력했을 때 다른 일본어 폰트로 변경이 안되는 사례가 발견되었습니다. 일단 내부적인 원인 파악을 위해서 현재 선택된 텍스트에 적용된 여러가지 폰트와 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
최근댓글