Excel vba silmek hakkında.

[görkem23]

Merhaba Çizdiğim Şekilleri Sayfa Üzerinde Seçip Silmek istiyorum. Bunu nasıl yapabilirim.

İyi Çalışmalar

 

[aydogankemal]

Şekilleri silmek

Şayet şekillerin isimlerini siz belirlerseniz daha kolay olacaktır. Çünkü kopyalayıp yapıştırdığınız tüm şekil isimleri aynı kalır.

ActiveSheet.Shapes.Range(Array("16kare")).Select
Selection.Delete

Yukarıdaki kodla adı16 kare olan şekli silebilirsiniz

 

[YUSUF44]

Aşağıdaki kod dosyadaki tüm çizim nesnelerini siliyor:

Sub Sil()
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).DrawingObjects.Delete
Next
End Sub

 

[aydogankemal]

Aşağıdaki kod dosyadaki tüm çizim nesnelerini siliyor:

Sub Sil()
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).DrawingObjects.Delete
Next
End Sub

Bu kod tüm sayfalardaki çizimleri sildi . sadece istenen sayfadaki kodu silmek için nasıl bir değişiklik yapmalıyız

 

[Ömer BARAN]

Bu kod tüm sayfalardaki çizimleri sildi . sadece istenen sayfadaki kodu silmek için nasıl bir değişiklik yapmalıyız

Merhaba.

Aşağıdaki kod, adını yazdığınız sayfadaki çizim nesnelerini siler.
(Sayfa1 yerine kod'un işlem yapmasını istediğiniz sayfanın adını yazın)
.

Sub SİL()
    Sheets("[COLOR="blue"]Sayfa1[/COLOR]").DrawingObjects.Delete
End Sub

 

[tahsinanarat]

Sub Belirli_Bir_Alandaki_Sekilleri_Sil()

    Dim sekiL As Shape

    For Each sekiL In ActiveSheet.Shapes
        If Not Intersect(sekiL.TopLeftCell, Range("A1:C10")) Is Nothing Then
            sekiL.Delete
        End If
    Next

End Sub