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