Excel VBA質問箱 IV

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

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


45259 / 76732 ←次へ | 前へ→

【36474】図形に文字を入れたい
質問  プルート  - 06/3/31(金) 23:14 -

引用なし
パスワード
   図形を描いて文字を入れたいのですが、どのようなコードにすればいいでしょうか?
自動記録をしたら、
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 206.25, 107.25, 195#, 90.75).Select
Selection.Characters.Text = "aaaaa"

となりました、図形にマクロ登録をしたいので以下のように描きました。
Set shaPoint = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
          Cells(18, "Q").Left, Cells(18, "Q").Top, _
          Cells(18, "Q").Width * 2, Cells(18, "Q").Height * 2)
With shaPoint
  .Characters.Text = "aaaaa"
  .OnAction = "InputPoint"
End With

自動記録で図形を書いた後、Selectしていますが、図形がSelectionになるわけですよね?
何が間違っているのか教えてください。
1 hits

【36474】図形に文字を入れたい プルート 06/3/31(金) 23:14 質問
【36479】Re:図形に文字を入れたい ichinose 06/4/1(土) 7:58 発言
【36481】Re:図形に文字を入れたい プルート 06/4/1(土) 13:08 お礼

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