첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ 아래 한글 텍스트 크기 설정하기

----------------------------------------------------------------------------------------------------

'--------------------------------------------------

' 아래 한글 텍스트 크기 설정하기

'--------------------------------------------------

' pHwpCtrl : HwpCtrl OCX

' dSize   : 크기

'--------------------------------------------------

Public Sub HWPSetTextHeight(pHwpCtrl As HwpCtrl, dSize As Double)

 

    Dim pHwpAction       As HwpAction

    Dim pHwpParameterSet As HwpParameterSet

    

    Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

    

    Set pHwpParameterSet = pHwpAction.CreateSet()

    

    pHwpAction.GetDefault pHwpParameterSet

    

    pHwpParameterSet.SetItem "Height", HWPGetUnit(dSize) ' "아래 한글 단위 구하기" 참조

    

    pHwpAction.Execute pHwpParameterSet

 

    Set pHwpAction = Nothing

 

    Set pHwpParameterSet = Nothing

 

End Sub

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요