Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13329 / 76807

←次へ　｜　前へ→


	【68984】テキストボックスの値取得

komarinko - 11/5/5(木) 17:35 -


	引用なし

	パスワード

エクセルのシートに存在するテキストボックスの値をVBAで取得しようとしています。
まず、テキストボックスに値を入れる操作をマクロで記録して以下のコードを得ました。

Sub Macro17()
　　Sheets("グラフ").Select
　　ActiveSheet.Shapes("buf").Select
　　Selection.Characters.Text = "+10000000"
　　With Selection.Characters(Start:=1, Length:=18).Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 11
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = xlAutomatic
　　End With

このコードから、シート「グラフ」のシェイプス「buf」のCharacters.Textを拾えばいいのだと考え、aという変数に、シェイプス「buf」の値を代入するという以下のコードを作ってみました。

Sub test()
Dim a
a = Sheets("グラフ").Shapes("buf").Characters.Text = "+10000000"
End Sub

ところが、「インデックスが有効範囲にありません」というエラーが出ました。
なにがいけないのか教えていただけないでしょうか。

2 hits

▼

【68984】テキストボックスの値取得 komarinko 11/5/5(木) 17:35

≪