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

■ 아래 한글 텍스트 크기를 설정하는 방법을 보여준다.

▶ 예제 코드 (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

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

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

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

' 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