Makro ile şekil silmek

[peleryn]

Merhabalar;

Addline ile eklenmiş sayfadaki tüm çizgileri silmek için nasıl bir makro komutu kullanmalıyım?

 

[Korhan Ayhan]

Selamlar,

Eğer sayfa üzerinde başka nesne yoksa aşağıdaki kod ile tüm nesneleri silebilirsiniz.

Sub ÇİZGİ_SİL()
    On Error Resume Next
    ActiveSheet.DrawingObjects.Delete
    On Error GoTo 0
End Sub

 

[peleryn]

Korhan Hocam çok teşekkür ederim.

 

[peleryn]

Hocam sayfa üzerinde butonlar varsa butonları silmemesi için kodu nasıl düzenlemeliyim?

 

[Korhan Ayhan]

Selamlar,

Bu durumda aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SAYFADAKİ_ÇİZGİLERİ_SİL()
    Dim NESNE As Shape
 
    For Each NESNE In ActiveSheet.Shapes
        If NESNE.Type = msoLine Then NESNE.Delete
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[peleryn]

Hocam malesef bu şekilde uygulayınca da aynı sorun oluyor.Örnek dosyayı ekliyorum.msoLine olan type'inide netten arayıp birçok şey olarak denedim sabahtan beri ama bir türlü tutturamadım.

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz dosyada çizgiyi sorun yaşamadan sildim.

 

[peleryn]

Korhan Hocam;

Çizgiler sorunsuz siliniyor.Benim sorunum şu ki;sayfaya bir buton eklemişsem kodlar çalışırken butonu da siliyor.Çizgiler silinirken butonun sürekli kalmasını sağlayamıyorum.

 

[Korhan Ayhan]

Selamlar,

Sorun benim önerdiğim koddan kaynaklanmıyor. Sayfanızın çift tıklama kodunda bulunan aşağıdaki satırdan kaynaklanıyor. Bu satırı bulup pasif yapın düzelecektir.

ActiveSheet.DrawingObjects.Delete

 

[Skorpiyon]

Sayın peleryn,

Bulunduğum yer itibari ile dosyanızı indirip tam olarak deneyemiyorum ama aşağıdaki kodu kendinize göre revize ederek bir deneyin.

Sub Düğme1_Tıklat()
On Error Resume Next
For a = 1 To 1000
ActiveSheet.Shapes("Dikdörtgen " & a).Delete 'Dikdörtgen'i silmek istediğiniz nesne ile değiştirin.
Next a
MsgBox "İşlem tamam"
End Sub

 

[peleryn]

Şaban Hocam malesef olmadı.İlginçtir Delete komutunu .Select olarak değiştirince sadece çizgiyi seçiyor ama Delete yapınca butonu da siliyor..

 

[Ömer]

Merhaba,

Sub Deneme()
On Error Resume Next
For i = 1 To 10000
    ActiveSheet.Shapes("Çizgi " & i).Delete
Next
End Sub

Bu şekilde olur. Yalnız döngüdeki 10000 değeri sıkıntı yaratabilir. Sürekli çizgi ekleyeçeğiniz için 10000 değerini aşması olası bir durumdur.
.

 

[peleryn]

Selamlar,

Sorun benim önerdiğim koddan kaynaklanmıyor. Sayfanızın çift tıklama kodunda bulunan aşağıdaki satırdan kaynaklanıyor. Bu satırı bulup pasif yapın düzelecektir.

ActiveSheet.DrawingObjects.Delete

Korhan Hocam malesef mesajınızı görmemişim ve malesef arada o satır gözümden kaçmış oysa "sil" makrosunu atarken hepsini pasif yaptım sanıyordum.Kodlarınızla sorunum halloldu teşekkür ederim.

Ayrıca Şaban ve Ömer hocalarıma da teşekkür ediyorum..