オートシェイプの名前を調べ削除する : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク



Excelのアクティブシート内の全シェープをFor Eachで調べます。
If関数で名前をチェックし合致すればDeleteメソッドで削除します。
削除した後は Exit For で抜けてもいいかもしれません。
If関数部分を削除すると、全削除できます。

ExcelシートのVBAコード

Option Explicit

'くじの削除
Private Sub ExDeleteShape()
    Dim t As Shape
    
    For Each t In ActiveSheet.Shapes
        '名前をチェック
        If t.Name = "シェイプ四角" Then
            t.Delete
        End If
    Next
End Sub

Private Sub CommandButton1_Click()
    ExDeleteShape
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved