スキルアップ・問題解決なら、モーグにおまかせ！

それぞれ、フォントのスタイルを定義するプロパティです。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