フォントの設定（Font プロパティ）

指定されたオブジェクトのフォント情報（Font オブジェクト）を取得します。

【書式】

object.Font

引数・戻り値

object ・・・対象となる オブジェクトを指定します。
AxisTitle（グラフ軸ラベル）、Characters（文字列の一部）、ChartTitle（グラフのタイトル）、DataLabel（グラフのデータ要素または近似曲線のデータラベル）、Legend（グラフの凡例）、Phonetic（ふりがな）、Range（セル範囲）、Style（セル範囲のスタイル） など

プロパティ	内容	詳細
Bold	太字の設定・取得	フォント太字・斜体（Bold, Italic, FontStyle プロパティ）
Italic	斜体の設定・取得
FontStyle	太字・斜体の設定・取得
Name	フォント名の設定・取得	フォント名（Name,ThemeFont,StandardFont）
ThemeFont	テーマのフォントの設定・取得	フォント名（Name,ThemeFont,StandardFont）
Size	フォントサイズの設定・取得	フォントサイズ（Size プロパティ・StandardFontSize プロパティ）
Strikethrough	取り消し線の設定・取得	取り消し線を設定する（Strikethrough プロパティ)
Superscript	上付き文字の設定・取得	上付き文字・下付き文字（Superscript,Subscript）
Subscript	下付き文字の設定・取得	上付き文字・下付き文字（Superscript,Subscript）
Underline	下線の設定・取得	文字に下線を設定する（Underline プロパティ）
Color	フォントの色の設定・取得	色の設定（Color プロパティ・RGB 関数）
ColorIndex	フォントの色の設定・取得	色の設定（ColorIndex プロパティ・Colors プロパティ）
ThemeColor	フォントの色の設定・取得	色の設定（ThemeColor プロパティ・TintAndShade プロパティ）
TintAndShade	フォントの色の設定・取得	色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

サンプルVBAソース

　
Sub Sample_Font00()

    Range("B2").Value = "あいうえお"
    
    With Range("B2").Font
            
        .Color = RGB(100, 200, 50)
        .Size = 20
        .Bold = True
        .Italic = True
    
    End With
    
    Range("B5").Value = "ABCDE"
    
    With Range("B5").Font
    
        .ThemeColor = msoThemeAccent1
        .TintAndShade = -0.5
        .Size = 14
        .Name = "メイリオ"
        
    End With

    Range("B8").Value = "あああ １５８m2"
    Range("B8").Font.Color = rgbRed
    
    With Range("B8").Characters(Start:=1, Length:=3).Font
            
        .ColorIndex = 12
        .Size = 18
        .Strikethrough = True
        
    End With
        
    With Range("B8").Characters(Start:=9, Length:=1).Font
        
        .Subscript = True
        .Size = 14
        
    End With
                
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

Sub Sample_Font00()

Range("B2").Value = "あいうえお"

With Range("B2").Font

.Color = RGB(100, 200, 50)

.Size = 20

.Bold = True

.Italic = True

End With

Range("B5").Value = "ABCDE"

With Range("B5").Font

.ThemeColor = msoThemeAccent1

.TintAndShade = -0.5

.Size = 14

.Name = "メイリオ"

End With

Range("B8").Value = "あああ１５８m2"

Range("B8").Font.Color = rgbRed

With Range("B8").Characters(Start:=1, Length:=3).Font

.ColorIndex = 12

.Size = 18

.Strikethrough = True

End With

With Range("B8").Characters(Start:=9, Length:=1).Font

.Subscript = True

.Size = 14

End With

End Sub

フォントの設定（Font プロパティ）