Excel VBA質問箱 IV

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

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


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

12138 / 76734

←次へ　｜　前へ→


	【70122】Re:また、質問させて下さい

UO3 - 11/10/16(日) 17:37 -


	引用なし

	パスワード

▼じょにーさん：

思いつき部分が多いので実際の運用面でどうか・・・とは思いますが。

標準モジュールのAddShapeの最後、End Sub の直前に

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).OnAction = "DelShapeX"

これをいれておきます。

で、以下のプロシジャを追加します。

Sub DelShapeX()
　　ActiveSheet.Shapes(Application.Caller).Delete
End Sub

図のあるセルをダブルクリックした際に、「運良く」セル領域にマウスポインターがあれば
現行のロジックが動いて図は削除されますし、図そのものにポインターがあれば
図に登録されたマクロとしてのDelShapeXで削除されます。

ただ・・・実際には図のダブルクリックではなく図のクリックで削除されます。
セルがそんなにおおきくない場合は、最初のクリックで消え、カーソルが下のセルに移り
２度目のクリックで、下のセルでダブルクリックイベントが発生し、そこにドーナッツが
作られるケースが多くなります。

ですから、この案でいくなら、運用ルールとしては
・図のないセルではダブルクリックで図を作成。
・図に対しては「クリック」で削除。
このようにされたほうがいいのかも。
（つまり、シートモジュールには是の作成コードのみを書き、削除部分は「削除」）

あぁ、本線テーマではないのですが、標準モジュールのプロシジャは
Public 記述がなくてもPublic扱いになっています。

また他のモジュールからPublicプロシジャにとぶ場合、Module1.プロシジャ名　といった
モジュール修飾は不要です。

13 hits

▼

【70015】下記 じょにー 11/10/9(日) 16:32