HOME > 即効テクニック > Excel VBA > 文字列操作関連のテクニック > フォントスタイルを設定する

即効テクニック

文字列操作関連のテクニック

フォントスタイルを設定する

(Excel 2000)
それぞれ、フォントのスタイルを定義するプロパティです。Trueを設定することで、対応したスタイルがフォントに対して適用されます。


  構文  Object.Bold                太字      設定/取得
        Object.Italic              斜体      設定/取得
        Object.Underline           下線      設定/取得
        Object.Strikethrough       取消し線  設定/取得


  設定項目              内容
  Object                Fontオブジェクト [省略不可]


次のサンプル1で、それぞれのスタイルが適応された状態で確認してください。


●サンプル1●

 Sub Bold_Italic_Underline_StrikethroughSamp1()

     Range("A1").Value = "Bold"
     Range("A1").Font.Bold = True           '---フォントを太字にします
     Range("A2").Value = "Italic"
     Range("A2").Font.Italic = True         '---フォントを斜体にします
     Range("A3").Value = "Underline"
     Range("A3").Font.Underline = True      '---フォントに下線を引きます
     Range("A4").Value = "Strikethrough"
     Range("A4").Font.Strikethrough = True  '---フォントに取り消し線を引きます

 End Sub


●ポイント●
フォントを太字で斜体にしたい場合、FontプロパティとItalicプロパティを使う以外に、FontStyleプロパティを用いることも可能です。FontStyleプロパティでは、"標準"、"太字"、"斜体"、"太字 斜体"のスタイルが設定可能です。

次のサンプル2は、選択範囲のフォントに"太字 斜体"のスタイルを設定します。


●サンプル2●

 Sub FontStyleSamp1()

     If TypeName(Selection) <> "Range" Then Exit Sub
     With Selection.Font
         .FontStyle = "太字 斜体"
         MsgBox "Bold:=" & .Bold & Chr(13) & "Italic:=" & .Italic
         '---BoldプロパティとItalicプロパティの値を確認してください
     End With

 End Sub