ＶＢＡでテキストボックスを編集したいのですが

質問

エクセル2003のＶＢＡで、グラフシート上にあるテキストボックスに\"test\"という文字を入れていこうとしています。既存のテキストボックスの文字を変更したいのです。

あれこれコードを試しているのですがエラーばかりでうまくいきません。
以下、エラーが出るコードです。
どう直せばよろしいでしょうか。

Workbooks(\"matome.xls\").Charts(\"Graph_THC_L\").Shapes(\"Text Box 1\").Characters.Text = \"test\"

Workbooks(\"matome.xls\").Charts(\"Graph_THC_L\").TextFrame.Characters.Text = \"test\"

回答No.3

myRange · ベストアンサー

＞Workbooks(\"matome.xls\").Charts(\"Graph_THC_L\").TextFrame.Characters.Text = \"test\"

Shapes("Text Box 1")の指定が抜けてますよ。
当然ながら、\　は外すこと。

Workbooks("matome.xls").Charts("Graph_THC_L").Shapes("Text Box 1").TextFrame.Characters.Text = "テスト"

以上です。

お礼

Workbooks("matome.xls").Charts("Graph_THC_L").Shapes("Text Box 1").TextFrame.Characters.Text = "テスト"

上のコードでばっちりいけました。
ありがとうございます。助かりました。

回答No.2

hige_082

まずは、どんなエラーがでるのか書かないとね？
再現するのが面倒なので試してませんが
Workbooks("matome.xls")の部分は
Workbooks("matome")としなければ
実行エラー'9':インデックスが有効範囲にありません。
がでますよ

参考まで

回答No.1

mt2008

投稿した際に文字化けしたのか、元々このままなのか判りませんが、「"」が全て「\"」になっていませんか？

お礼

投稿した後に\がでるんですよ。
なんででしょう。。。