benkei_maru https://blog.hatena.ne.jp/benkei_maru/ 晴れのうらかた https://hareno-urakata.com/ Excel_VBA 特定のシート上(ここでは1枚目)にオートシェイプが1つでも見つかった場合に一括削除させる処理です。 慣れた方なら繰り返し処理を考えて複数のシートにも適用させるように組むのが普通かもしれませんが、ここでは1つのシートで限定的に一括削除させる場合の一例です。 Sub a() Dim S_cnt As Integer S_cnt = Worksheets(1).Shapes.Count Worksheets(1).Activate If S_cnt > 1 Then ActiveSheet.Shapes.SelectAll Selection.Delete End If End Sub 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhareno-urakata.com%2Fentry%2F2021%2F03%2F08%2F220251" title="Excel VBA 図形(オートシェイプ)の有無をチェックし、存在した場合は一括削除する(ActiveSheet.Shapes) - 晴れのうらかた" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2021-03-08 22:02:51 rich https://hareno-urakata.com/entry/2021/03/08/220251 1.0 100%