【Excel VBA】図形内の文字列の改行を削除する

図形内の文字列の改行を削除する方法のメモ。

改行の削除方法

文字列を置換する関数「 Replace 」を使い、図形内の文字列に含まれる改行コード(Lf)を空文字に置換することで改行を削除することができる。

'図形内の文字列の改行を削除する
With ActiveSheet.Shapes("図形1").TextFrame2.TextRange.Characters
     Text = Replace(.Text, vbLf, "")
End With

実行結果

実行前

実行後