[VB] 아래 한글 텍스트 크기 설정하기

'--------------------------------------------------
' 아래 한글 텍스트 크기 설정하기
'--------------------------------------------------
' 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