「Excel VBA」Replaceで吹き出しの文字の一部を置換する
環境
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
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
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