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