Excel VBA セルの文字のフォントサイズを変える-Size

Excel VBAでセルの文字のフォントサイズを変える方法を記録します。

下図はExcel2016です。

< スポンサーリンク >

書き方

例

アクティブシートのA1セルの文字を20ポイントにしてみます。

Sub test()
     ActiveSheet.Range("A1").Font.Size = 20
End Sub

アクティブシートのA1～D1の連続したセルの文字を14ポイントにしてみます。

Sub test()
     ActiveSheet.Range("A1:D1").Font.Size = 14
End Sub

アクティブシートのA1～D1、A6～D6の離れたセルの文字を20ポイントにしてみます。

Sub test()
     ActiveSheet.Range("A1:D1,A6:D6").Font.Size = 20
End Sub

フォントサイズと色を同時に変える場合は、「With」ステートメントを使うと便利です。

Sub test()
    With ActiveSheet.Range("A1:D1,A6:D6").Font
        .Size = 16
        .Color = RGB(255, 0, 0)
    End With
End Sub

< スポンサーリンク >

文字へ