検索文字列のフォントサイズを変更する

今回も前回と同様にCharactersオブジェクトについてですが、
今回はフォントサイズの変更を行います。

Charactersオブジェクトの
Font.Sizeに数値を設定することにより
検索文字列のフォントサイズを変更することができます。

サンプルではA1～A5セルの各セルに
まずInStr関数で検索を行います。

そして対象文字列が存在する場合は、
Charactersオブジェクトの第1引数に開始位置、
第2引数に対象文字列の長さを指定し、
そのFont.Sizeプロパティに値を設定し、
文字のフォントサイズを変更（ここでは15に）しています。

Sub 検索文字列のフォントサイズを変更()
    Dim strWord As String   '検索文字列
    Dim intLen  As Integer  '検索文字列の長さ
    Dim intLeft As Integer  '検索文字列開始位置
    
    strWord = "GANASYS"
    intLen = Len(strWord)
    
    For i = 1 To 5
        '文字列が検索された場合の開始位置を取得
        intLeft = InStr(Cells(i, 1).Value, strWord)
        
        If intLeft <> 0 Then
            '検索文字列のフォントサイズを15にする。
            Cells(i, 1).Characters(intLeft, intLen).Font.Size = 15
        End If
    Next
End Sub

結果は以下のようになります。