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

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

[[20230123172642]]: #score: 6703; @digest: 175b1f7edde524da05af8392046fc99c; @id: 93328; @mdate: 2023-01-23T13:40:43Z; @size: 2695; @type: text/plain; #keywords: ラヴ (31547), ギラ (26004), ー☆ (16319), ヴァ (8469), ンツ (7287), ァン (5122), msoautoshape (3632), シェ (3161), トシ (3051), ェイ (2976), プif (2552), activex (2345), ツ） (2295), shape (2090), イプ (1890), 図形 (1646), shp (1619), 2023 (1506), （ブ (1499), 月) (1455), トロ (1299), onaction (1251), オー (1154), 定外 (1104), ロ登 (1071), の図 (1039), （mk (1028), 形は (894), shapes (881), 特定 (736), ブル (722), clear (685); 『特定の図形だけ残してシートの内容を消したいのですができますか』（ブルー☆ギラヴァンツ）
いつもお世話になっておりますマクロで特定の図形だけ残してシートの内容を消したいのですができますか特定の図形はマクロのボタンになりますおねがいします＜使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- >特定の図形はマクロのボタンになります オートシェイプにもマクロを紐づけることができるし、 ActiveXコントロールもある。残すのは具体的に何でしょう? （MK） 2023/01/23(月) 17:33:40 ---- あと、シートの内容というのもあいまいです。書式やコメントなどはどうします? （MK） 2023/01/23(月) 17:35:31 ---- > ActiveXコントロールもある。 ↓へ訂正です。フォームコントロールとActiveXコントロールもある。（MK） 2023/01/23(月) 17:40:47 ---- 早速ありがとうございます残すのはオートシェイブで書式やコメントも消したいです（ブルー☆ギラヴァンツ） 2023/01/23(月) 17:46:22 ---- ほんとにええんか・・・? マクロを実行したオートシェイプ以外全部消して、セル全体をクリア Sub test() Dim sh As Shape For Each sh In Shapes If sh.Name <> Shapes(Application.Caller).Name Then sh.Delete End If Next sh Cells.Clear End Sub （稲葉） 2023/01/23(月) 18:46:27 ---- ありがとうございます実行しましたが「オブジェクトが必要です」と出るのですが・・・（ブルー☆ギラヴァンツ） 2023/01/23(月) 19:40:47 ---- マクロの実行はオートシェイプでいいんですよね? フォームじゃないんですよね? オートシェイプに提示したマクロ割り当ててますよね? （稲葉） 2023/01/23(月) 20:27:03 ---- はい オートシェイプは複数あります（ブルー☆ギラヴァンツ） 2023/01/23(月) 20:30:53 ---- Sub Macro1() Worksheets("Sheet1").Cells.Clear End Sub （asobi） 2023/01/23(月) 20:49:56 ---- 先にshapeを削除すると、・コメントの赤いインジケータが残ったり、・入力規則に想定していない事象が発生します。先に、Cells.Clearを実行したほうがいいみたいですね。マクロを登録した図形が複数ある場合にも対応しようとすると以下のような感じですか。 Sub test() Dim shp As Shape Cells.Clear For Each shp In ActiveSheet.Shapes Select Case shp.Type Case msoAutoShape 'マクロ登録のないオートシェイプ If shp.OnAction = "" Then shp.Delete Case Else MsgBox "想定外のshapeです " & shp.Name shp.Delete End Select Next End Sub 画像とか、その他のshapeが色々あると思います。すべてを確認したわけではないので、不測の事態になることがあるかもしれません。（γ） 2023/01/23(月) 21:07:26 ---- できましたありがとうございます（ブルー☆ギラヴァンツ） 2023/01/23(月) 22:40:43 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202301/20230123172642.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ