選択しているオブジェクトの文字に対して、いろいろなプロパティがあり、バラエティに富んだ書式設定ができます。
Fontオブジェクトのプロパティ

Sub フォント()
With Range(“B2:B5”).Font
.Name = “MS UI Gothic” ‘①
.FontStyle = “Bold Italic” ‘②
.Size = 14 ‘③
.Strikethrough = False ‘④
.Underline = True ‘⑤
.ColorIndex = 5 ‘⑥
End With
End Sub
① フォントの種類を「MS UI Gothic」に設定
② 太字に設定
③ フォントサイズを14に設定
④抹消線を付けない
⑤アンダーラインを引く
⑥色(パレット形式)をブルーに設定
主だった Fontプロパティは次のようなものがあります。
Fontオブジェクトのプロパティ(抜粋)
プロパティ | 意 味 | 用 途 |
Name | フォント名 | 使用するフォント名 |
FontStyle | 太字・斜体の設定 | 太字・斜体にする |
Size | 文字の大きさ | 数値(ポイント) |
Superscript | 上付き文字 | True(上付き) / False(しない) |
Subscript | 下付き文字 | True(下付き) / False(しない) |
Strikethrough | 抹消線 | True(抹消線) / False(線無し) |
Shadow | 影 | True(影有り) / False(線無し) |
underline | 下線 | True(下線有り) / False(下線無し) |
Color | 文字色 | RGB形式で文字色を設定 |
ColorIndex | 文字色 | パレット形式で文字色を設定 |
Font Name の設定
指定したセルの Fontオブジェクトのフォント名の設定は文字列(例:HGS明朝B)で指定します。
Fontオブジェクト = “フォント名”
Sub フォント名()
Range(“B3:E3”).Font.Name = _
Range(“B7”).Font.Name
End Sub
セルB7のフォント名を取得して、これをセルB3:E3に設定します。

フォントには「日本語対応フォント」と「欧文対応フォント」があります。
任意のセルに対し
① Font.Name = 日本語対応フォント
② Font.Name = 欧文対応フォント
のように設定を行った場合は、日本語は①に指定したフォント、英数字は②に指定したフォント という設定になります。
Sub フォント2()
With Range(“B2:F7”).Font
.Name = “メイリオ”
.Name = “Arial”
End With
End Sub

Font Size の設定
指定したセルの Fontオブジェクトのフォントサイズをポイント単位で取得・設定するには「Sizeプロパティ」を使います。
Fontオブジェクト.Size = ポイント数

Sub フォントサイズ()
Dim FF As Long
FF = Range(“B3”).Font.Size ‘①
Range(“C3”) = FF ‘②
Range(“B7”).Font.Size = _
Range(“B3”).Font.Size ‘③
End Sub
① セルB3のフォントサイズを取得
② 取得したフォントサイズをセルC3に書き出す
③ セルB7のフォントサイズをセルB3のフォントサイズに合わせる

Fontスタイルの設定
フォントスタイルで太字、斜体、下線の設定はそれぞれ Bold / Itakic / Underlineプロパティを使用します。
「True」で設定、「False」で解除となります。
Fontオブジェクト.Bold = True / False
Fontオブジェクト.Italic = True / False
Fontオブジェクト.Underline = True / False
Sub フォントStyle()
With Range(“B2:B3”).Font
.Bold = True
.Italic = True
.Underline = True
End With
End Sub


