Belirli nesne seçtirmeme

[acetinnster]

Range("b8:j" & Cells(65536, 10).End(xlUp).Row).Select
Selection.ClearContents
ActiveSheet.DrawingObjects.Select
Selection.Delete

Yukarıda yazılan kodda belirli aralıktaki verileri ve tüm resimleri silebiliyorum
Şöyle bir şey düşüncem var
CommandButton1 ve Resim2 nesnelerinin seçilmemesi
Bu iki nesne haricindekiler silinecek.
Tüm arkadaşlara teşekkür ederim.

 

[Mahmut Bayram]

Option Explicit
Sub sil()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.Name <> "CommandButton1" And Shp.Name <> "Resim2" Then
Shp.Delete
End If
Next
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.
Alternatif olsun.

Sub test()
    Dim obj As Integer
    Range("b8:j" & Cells(65536, 10).End(xlUp).Row).ClearContents
    For obj = ActiveSheet.DrawingObjects.Count To 1 Step -1
        If Not ActiveSheet.DrawingObjects(obj).Name = "CommandButton1" And Not ActiveSheet.DrawingObjects(obj).Name = "Resim2" Then
            ActiveSheet.DrawingObjects(obj).Delete
        End If
    Next
End Sub

 

[acetinnster]

Sağolun
Yardımlarınız için çok teşekkürler