プログラムを入力する
Option Explicit
'フォント大
Private Sub CommandButton1_Click()
With ActiveCell.Characters(2, 3).Font
.Size = 20
.Name = "MS P明朝"
.Italic = True
.Underline = False
.ColorIndex = 3
End With
End Sub
'フォント小
Private Sub CommandButton2_Click()
With ActiveCell.Characters(2, 3).Font
.Size = 9
.Name = "MS Pゴシック"
.Italic = False
.Underline = True
.ColorIndex = 5
End With
End Sub
プログラム説明
文字列の一部のフォントを変更するには、Charactersプロパティを使用します。
構文:
Characters(開始位置 , 文字数)
■フォント大ボタンをクリックすると、2文字目から3文字を下のように変更します。
・文字サイズを20
・フォントをMS P明朝
・斜体
・フォント色を赤
■フォント小ボタンをクリックすると、2文字目から3文字を下のように変更します。
・文字サイズを9
・フォントをMS Pゴシック
・下線
・フォント色を青
実行結果
■変更前
■フォント大に変更
■フォント小に変更