Excel VBA質問箱 IV

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

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


2090 / 13645 ツリー ←次へ | 前へ→

【70010】オートシェイプの消去で教えて下さい じょにー 11/10/8(土) 11:42 質問[未読]
【70011】Re:オートシェイプの消去で教えて下さい kanabun 11/10/8(土) 22:56 発言[未読]
【70018】Re:オートシェイプの消去で教えて下さい kanabun 11/10/9(日) 17:53 発言[未読]

【70010】オートシェイプの消去で教えて下さい
質問  じょにー E-MAIL  - 11/10/8(土) 11:42 -

引用なし
パスワード
   初めて投稿させてもらいます。
アークシート上のセルを右クリック又は、ダブルクリックした時に、Targetセル上にあるオートシェイプを消す方法を教えて下さい、出来れば、サンプルコードもご提示下されば、助かります。

【70011】Re:オートシェイプの消去で教えて下さい
発言  kanabun  - 11/10/8(土) 22:56 -

引用なし
パスワード
   ▼じょにー さん:こんにちは〜

>アークシート上のセルを右クリック又は、ダブルクリックした時に、
>Targetセル上にあるオートシェイプを消す方法を教えて下さい、

レスがないですね〜
もちょっと具体的に質問したらどうでしょうか
「Targetセル」というのは 「右クリック又は、ダブルクリックした」
セルとは別のセルのことですよねぇ
でないと、セルの上に図形があるんだろうから、その下のセルはマウ
スで選択できない。

図形はマウスで選択できるから、目的の図形を選択して[Delete]キー
を押す(←手作業です)処理とちがうことをVBAでしたいんですよね?

【70018】Re:オートシェイプの消去で教えて下さい
発言  kanabun  - 11/10/9(日) 17:53 -

引用なし
パスワード
   ▼じょにー さんへ
新たにスレッドをたてられたようですが、
タイトル「下記」では、何のことかわからなくなりますし、
質問内容は本スレッドと同じなのですから、
【70015】下記
は閉じて、ココにお返事を書いてもらったほうがよいような気がします。

で、
そちらに書かれた文章とコードから、おおよその質問内容
は分かりますが、
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
イベントプロシージャが Sheet1 と「Module1」の両方にあるのは
なぜですか?
ようするに、イベントプロシージャはシートモジュールとかブックモジュール
とか(UserFormモジュール)などのクラスモジュールに置くものであって、
標準モジュールにおいてもセルのダブルクリックや右クリックなどの
Eventは感知できません。
たぶん、ですが、ブックモジュール(ThisWorkBook)に一か所だけ
ダブルクリックと右クリックのプロシージャを書いておけば済むような
気がします。
あと、ご提示のコード
標準モジュール(Module1) に書いてあるはずの
Module1.DelShape(Target)

Module1.AddShape(Target)
の現状のコードが紹介されてないですね?

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