Excel VBA質問箱 IV

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

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


69766 / 76732 ←次へ | 前へ→

【11481】オートシェイプの操作について
質問  Datacom  - 04/3/9(火) 17:46 -

引用なし
パスワード
   Execlのシート上に複数の図形(オートシェイプ)を配置しています。
マクロのそれぞれの図形がクリックされた場合の処理を記述したい
のですが、以下のように明示的にそれぞれのシェイプを指定せずに
、INDEXを用いた指定方法は出来ないのでしょうか?

現在の記述方法だとオートシェイプの数が増えれば、それだけ記述
しなければなりません。


「現在の記述」
Sub オートシェイプ1_Click()

  ActiveSheet.Shapes("AutoShape 1").Select
  
  オートシェイプ1の処理

End Sub
Sub オートシェイプ2_Click()

  ActiveSheet.Shapes("AutoShape 2").Select
  
  オートシェイプ2の処理
      ・
      ・
      ・


「望む記述」
Sub オートシェイプ_Click()

  選択されたオートシェイプのINDEXを取得
  ActiveSheet.Shapes(INDEX番号).Select
  
  オートシェイプINDEX番号毎の処理


よい方法をお願い致します。

1 hits

【11481】オートシェイプの操作について Datacom 04/3/9(火) 17:46 質問
【11482】Re:オートシェイプの操作について Jカーター 04/3/9(火) 18:04 回答
【11488】Re:オートシェイプの操作について Kein 04/3/9(火) 20:08 回答
【11525】Re:オートシェイプの操作について Datacom 04/3/10(水) 23:01 お礼
【11575】Re:オートシェイプの操作について Datacom 04/3/11(木) 17:27 質問
【11661】Re:オートシェイプの操作について カド 04/3/13(土) 18:47 質問
【11663】Re:オートシェイプの操作について りん 04/3/13(土) 18:55 回答
【11664】Re:オートシェイプの操作について カド 04/3/13(土) 20:33 質問
【11665】Re:オートシェイプの操作について りん 04/3/13(土) 20:52 発言
【11666】Re:オートシェイプの操作について カド 04/3/13(土) 20:58 お礼

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