For_eachの使い方②_各図形_Shapes

トップページ（目次）

377.For_eachの使い方②_各図形_Shapes_オブジェクト

＜実行前後＞

→

Sub For_eachの使い方②_各図形_Shapes_オブジェクト()

    For Each オブジェクト In ActiveSheet.Shapes
    
        オブジェクト番号 = オブジェクト.Type
        
        If オブジェクト番号 = 17 _
        Or オブジェクト番号 = 13 _
        Or オブジェクト番号 = 8 _
        Or オブジェクト番号 = 3 Then
            
            オブジェクト.Select
            オブジェクト.Delete
        
        End If
        
    Next

End Sub

＜振られている番号一覧＞オブジェクト番号 = 17 → テキストボックスオブジェクト番号 = 13 → 画像オブジェクト番号 = 8 → ボタンオブジェクト番号 = 3 → グラフ