Excel VBA質問箱 IV

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

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


13260 / 76738 ←次へ | 前へ→

【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 = "MS Pゴシック"
    .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

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

【68984】テキストボックスの値取得 komarinko 11/5/5(木) 17:35 質問
【68986】Re:テキストボックスの値取得 kanabun 11/5/5(木) 17:50 発言
【68988】Re:テキストボックスの値取得 kanabun 11/5/5(木) 20:18 発言
【68989】Re:テキストボックスの値取得 kanabun 11/5/5(木) 20:28 発言
【68990】Re:テキストボックスの値取得 kanabun 11/5/5(木) 20:36 発言
【68987】Re:テキストボックスの値取得 UO3 11/5/5(木) 19:11 発言
【68995】Re:テキストボックスの値取得 komarinko 11/5/6(金) 0:48 お礼

13260 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free