「Excel VBA」Replaceで吹き出しの文字の一部を置換する

2022年1月12日

環境
Windows 10 64bit
Excel 2013
シート名　arkgame
一つ目吹き出し:Shapes(1)

使用例

Sub funA()
    Dim target As String
    'シート名arkgame
    Sheets("arkgame").Select
    '吹き出しの全ての文字列を取得します
    target = ActiveSheet.Shapes(1).TextFrame.Characters.Text
    
    '全ての文字列に対してStudyの箇所を置換します
    ActiveSheet.Shapes(1).TextFrame.Characters.Text = Replace(target, "Study", "confirm")
      '吹き出しの幅が広がります
    ActiveSheet.Shapes(1).TextFrame.AutoSize = True
    
End Sub

実行結果
吹き出しの置換前文字
StudySkill
吹き出しの置換後文字
confirmSkill