Excel VBA エクセルの吹き出しの文字を置換する

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

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub FunA()
'シート名arkgame
Sheets("arkgame").Select
'置換文字
ActiveSheet.Shapes(1).TextFrame.Characters.Text = "welcome study vba"
'AutoSizeがTrueの場合、吹き出しの幅が広がります
ActiveSheet.Shapes(1).TextFrame.AutoSize = True
End Sub
Sub FunA() 'シート名arkgame Sheets("arkgame").Select '置換文字 ActiveSheet.Shapes(1).TextFrame.Characters.Text = "welcome study vba" 'AutoSizeがTrueの場合、吹き出しの幅が広がります ActiveSheet.Shapes(1).TextFrame.AutoSize = True End Sub
Sub FunA()
    'シート名arkgame
    Sheets("arkgame").Select
    '置換文字
    ActiveSheet.Shapes(1).TextFrame.Characters.Text = "welcome study vba"
    'AutoSizeがTrueの場合、吹き出しの幅が広がります
    ActiveSheet.Shapes(1).TextFrame.AutoSize = True
    
End Sub

実行結果
一つめの吹き出しの文字に「welcome study vba」を置換します。

Excel VBA

Posted by arkgame