Excel VBA質問箱 IV

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

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


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

5554 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【50163】名前の決まっていない四角形の削除法 黒姫 07/7/12(木) 20:58

【50165】Re:名前の決まっていない四角形の削除法 ぱっせんじゃー 07/7/12(木) 21:23

【50167】Re:名前の決まっていない四角形の削除法 わいわい 07/7/13(金) 11:00


	【50163】名前の決まっていない四角形の削除法

黒姫 - 07/7/12(木) 20:58 -


	引用なし

	パスワード

タイトル通りなのですが、コマンドボタン１を押すたびに、画面のどこかに四角形が一つ現れます。いくつかの四角形を作った後、コマンドボタン２を押すことにより画面にある四角形全てを一気に削除したいのですが、ここで問題が生じました。作成される四角形の名前が一定ではないので、そのコードが思いつきません。二つのコマンドボタンは消さずに四角形全てを削除するにはどうしたらいいでしょうか？


	【50165】Re:名前の決まっていない四角形の削除法

ぱっせんじゃー - 07/7/12(木) 21:23 -


	引用なし

	パスワード

角丸の四角形も消えちゃいますが。
シェイプの四角形を削除します。

Sub sikaku()
Dim rct As Rectangle
　For Each rct In ActiveSheet.Rectangles
　 rct.Delete
　Next
End Sub


	【50167】Re:名前の決まっていない四角形の削除法

わいわい - 07/7/13(金) 11:00 -


	引用なし

	パスワード

▼黒姫さん：全てを削除するには、以下の命令で消せますね。　　ActiveSheet.Rectangles.Delete もしn番目の四角だけ消したい場合は、　　ActiveSheet.Rectangles.Item(n).Delete で出来ましたよ。以前こちらで教えてもらった内容の応用なのでお役に立てたら幸いです。 >タイトル通りなのですが、コマンドボタン１を押すたびに、画面のどこかに四角形が一つ現れます。いくつかの四角形を作った後、コマンドボタン２を押すことにより画面にある四角形全てを一気に削除したいのですが、ここで問題が生じました。作成される四角形の名前が一定ではないので、そのコードが思いつきません。二つのコマンドボタンは消さずに四角形全てを削除するにはどうしたらいいでしょうか？


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

5554 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free