エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20221207125057]]: #score: 6703; @digest: 9c6cbaeb1df1bafdabc6f657d5af4361; @id: 92966; @mdate: 2022-12-07T12:20:12Z; @size: 4399; @type: text/plain; #keywords: killme (35799), 滅コ (15497), 自滅 (15497), 摘済 (3858), シェ (3613), ト化 (3114), 居z (3098), イベ (3091), トシ (3050), ェイ (2976), ベン (2531), 画像 (2523), onaction (2497), イプ (2205), drawingobjects (2083), 2022 (1910), ・ω (1894), 隠居 (1866), ルク (1852), ・` (1825), ダブ (1698), 水) (1692), shp (1619), はイ (1476), 像を (1430), オー (1319), selectionchange (1187), 助言 (1182), リッ (1061), クリ (1050), delete (960), shapes (880); 『クリックして選択された図形を消す』（ぎんこう）
初心者です。イベントも始めてトライしています。シート上に複数のオートシェイプがあります。クリックして選択されたものがさっと消えるようにしたいのですが,どのようにすればいいのでしょうか?Sheet1に以下のようなものを書いて,worksheet, selectionchangeになっている必要があるとは思うのですが,わかりませんので,教えていただけますか。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Delete End Sub ＜使用 Excel:Office365、使用 OS:Windows10 ＞ ---- オートシェイプはイベント化出来ないので、クリックしたら・・・といったイベントは不可能かと思われます。選択してどこかのボタンで・・・とかなら普通にデリートでいいですし。ちなみにWorksheetのイベントはセルやシートを対象としているので、 オートシェイプの選択はイベントに入っていないはずです。（ngk） 2022/12/07(水) 13:18:24 ---- 自滅コードを登録しておけば、消すだけなら消えると思いますよ。。。^^; 後な〜にもなくなりますが。。。(￣▽￣;) （隠居Z） 2022/12/07(水) 14:12:12 ---- >自滅コードを登録しておけばなるほど、こうですね Sub Set_KillMe() ' これを実行すると、シェープをクリックすると消えるようになる Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.OnAction = "KillMe" Next End Sub Sub UnSet_KillMe() ' 解除する Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.OnAction = "" Next End Sub Sub KillMe() ActiveSheet.Shapes(Application.Caller).Delete End Sub （´・ω・`） 2022/12/07(水) 14:30:13 ---- ngkさん、隠居Zさん、´・ω・`さんお忙しいところ、教えてくださり本当にありがとうございます。オートシェイプはイベント化できないのですね。隠居Zさん、´・ω・`さん、裏テク?があるようですが、ごめんなさい、私の知識不足ゆえ、うまく動きません。Module1に貼り付けているだけです(>_<) どうすれば動かすことができるのでしょうか? （ぎんこう） 2022/12/07(水) 15:21:06 ---- え〜と、実行したい、プロシジャ、[（´・ω・`）さんのSet_KillMe] コードの中に、カーソルを移動、後、F5キーを、押すとか。。。リボン→開発→マクロで表示されるメニューから Set_KillMe を選択、実行でも、運用面では、ワークブックオープンからSet_KillMeを呼び出しておけばその時点で存在する、図等々は消えると思いますよ。^^; 説明代行でした。。。m(__)m （隠居Z） 2022/12/07(水) 16:17:20 ---- 再度おたずねさせてください。 オートシェイプではなく、PNGを画像としてSheet1上にいくつか貼り付けた場合はイベント化（ダブルクリックで削除）はできるのでしょうか?基本的な質問で申し訳ございません。（ぎんこう） 2022/12/07(水) 17:57:05 ---- こんなイメージ? ActiveSheet.DrawingObjects.Delete （あみな） 2022/12/07(水) 18:11:05 ---- あみなさんありがとうございます。以下のような感じでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveSheet.DrawingObjects.Delete End Sub これをSheet1のモジュールに貼り付けて、ExcelのSheet1にもどり、PNG画像をダブルクリックしたのですが、選択されるだけで、画像は削除されませんでした。きっと基本的なところができていないのだろうなと思うのですが、教えていただけますか。（ぎんこう） 2022/12/07(水) 18:33:09 ---- ＞PNG画像をダブルクリックしたのですが対象のシートをダブルクリックすると削除されますよ。シートのイベントだから...これではダメなのかな?^^; （あみな） 2022/12/07(水) 18:39:43 ---- シートのイベントですよ。（MK） 2022/12/07(水) 18:57:07 ---- すみません。あみなさんがご指摘済でした。（MK） 2022/12/07(水) 18:58:02 ---- あみなさん、MKさんこのあたり、本当にわかっていないので、ごめんなさい。ご迷惑をおかけします。複数のPNG画像がSheet1上にあって、消したい画像をダブルクリックすると削除されることを考えているのです。（ぎんこう） 2022/12/07(水) 19:01:31 ---- 同じことを書きますが、画像をダブルクリックして動作するイベントプロシージャはありません。そういう設計思想でできている製品なので、あなたの要望をそのまま実現することはできません。どうしても納得いかないなら、マイクロソフト社を訴えてくださいww。画像を選択してDeleteキーを押せばよいだけじゃないですか? 少し柔軟に考えましょう。また、複数の画像を同時に選択するのであれば、「オブジェクトの選択」を使ってください。（助言） 2022/12/07(水) 21:03:05 ---- 助言さん オートシェイプだけでなく、通常の画像もだめなのですね。私はオートシェイプだけができないと勘違いしていました。ありがとうございました。（ぎんこう） 2022/12/07(水) 21:20:12 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202212/20221207125057.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ