엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

엑셀(Excel)/VBA

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

 

환경: Microsoft Excel 2013

 

엑셀 리본 메뉴에서 사용하고 있는 글꼴 관련 옵션은 VBA 에서 모두 적용이 가능합니다. [] 탭의 [글꼴] 그룹에 있는 서식관련 옵션들을 VBA 코드로 하나씩 적용해 보려고 합니다. 아래에서 언급한 소스는 글꼴 종류, 글꼴 사이즈, 글꼴 스타일, 글꼴 색상에 대한 코드입니다.

 

엑셀의 리본 메뉴에서 제공하고 있는 글꼴 서식에 관련된 기능을 VBA 코드로 시트에 있는 데이터를 꾸며 보도록 하겠습니다.

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

 

먼저 글꼴 변경을 위한 코드 입니다. Range.Font.name 속성을 이용하며, 속성값으로 글꼴명을 입력해야 합니다. 적용하고 싶은 글꼴명은 알고 있어야겠죠.

 

Sub 폰트변경()

 

    Dim rng As Range

   

    Set rng = ActiveSheet.Range("B2").CurrentRegion

    rng.Font.name = "나눔 명조"

   

End Sub

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

 

다음은 글꼴 사이즈 입니다. Range.Font.Size 속성을 이용하며, 단위는 pt 입니다.

 

Sub 폰트사이즈변경()

 

    Dim rng As Range

   

    Set rng = ActiveSheet.Range("B2").CurrentRegion

    rng.Font.Size = 14

 

End Sub

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

 

다음은 글꼴 스타일에 대한 코드입니다. 글꼴 그룹에 있는 스타일은 3가지가 있습니다. Bold 는 글을 굵게 처리하며, Italic 은 기울림꼴 텍스트를 만듭니다. Underline 은 텍스트에 밑줄을 긋는 것입니다

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

 

3가지 폰트 스타일의 속성은 Bold, Italic, Underline 이며, 적용 여부는 Boolean 으로 판단합니다. 속성에 True 를 입력하면 해당 서식이 적용되는 것이죠.

 

Sub 폰트스타일적용()

 

    ActiveSheet.Range("B2:E2").Font.Bold = True

    ActiveSheet.Range("B3:E3").Font.Italic = True

    ActiveSheet.Range("B4:E4").Font.Underline = True

 

End Sub

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

 

폰트 색상을 지정하는 속성은 2가지가 있습니다. Font.Color Font.ThemeColor 입니다. 먼저 Font.Color 부터 알아 보겠습니다. Font.Color 속성으로 입력되는 값은 두 가지 형태가 있습니다. 그림에 나와 있는 것처럼 Constant 상수 값을 넣는 것입니다. 만약 상수값에 없는 색상을 입히고 싶다면 RGB 함수를 사용해야 합니다

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

 

소스에서도 Constant 상수값으로 vbGreen 을 입력한 것과 RGB 함수를 이용한 두 가지 예제가 있습니다. 그리고 마지막에 있는 ThemeColor 은 색상과 색조를 함께 표현한 것입니다. 10가지가 있으며 종류는 아래와 같습니다.

 

xlThemeColorDark1 (whites)

xlThemeColorLight1 (blacks)

xlThemeColorDark2

xlThemeColorLight2

xlThemeColorAccent1

xlThemeColorAccent2

xlThemeColorAccent3

xlThemeColorAccent4

xlThemeColorAccent5

xlThemeColorAccent6

 

Sub 폰트색상적용()

 

    ActiveSheet.Range("B2:E2").Font.Color = vbGreen

    ActiveSheet.Range("B3:E3").Font.Color = RGB(255, 0, 0)

    ActiveSheet.Range("B4:E4").Font.ThemeColor = 5 xlThemeColorAccent5

 

End Sub

엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

Posted by 녹두장군