Excel Sayfasındaki Resim Nesnelerini Silme

[Mesafe]

Başka bir programdan excele veri aldığımda gelen resim nesnelerini silmek istiyorum. Bunun için bir makro yardımında bulunabilirmisiniz.
Şimdiden Teşekkürler

 

[Ömer]

Başka bir programdan excele veri aldığımda gelen resim nesnelerini silmek istiyorum. Bunun için bir makro yardımında bulunabilirmisiniz.
Şimdiden Teşekkürler

Merhaba,




Aşağıdaki yolu izleyin.

• F5
• Özel
• Nesneler
• Tamam
• Delete

Bu işlemin kodlarını makro kaydet ile alabilirsiniz.

 

[Mesafe]

Ömer Bey, teşekkür ederim. Makro kaydet ile kodları almaya çalıştım ama sadece nesne seçim kısmını kaydediyor makro
ActiveSheet.DrawingObjects.Select
bunun yanına, altına delete eklemeye çalıştım ama olmadı.

 

[Ömer]

Ömer Bey, teşekkür ederim. Makro kaydet ile kodları almaya çalıştım ama sadece nesne seçim kısmını kaydediyor makro
ActiveSheet.DrawingObjects.Select
bunun yanına, altına delete eklemeye çalıştım ama olmadı.

Bu şekilde deneyin.

Sub Nesne_Sil()
    ActiveSheet.DrawingObjects.Delete
End Sub

.

 

[Seyit Tiken]

Aşağıdaki kodu çift tıklayarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveSheet.DrawingObjects.Delete
End Sub

 

[Mesafe]

Sn. Ustadlarım, Buton ile olsun, çift tıklayarak olsun sorunumu hallettiniz.
Çok teşekkür ederim.

 

[Mesafe]

Sn. Hocalarım, Manuel yolu izleyerek (F5>Özel>Nesneler..) yaptığımda sayfadaki makro butonlarını seçmezken, bunu makro ile yapınca butonlarımı da siliyor.
Bunun çözümü için bir öneriniz olabilirmi ?
Teşekkürler..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub NESNE_SİL()
    Dim Nesne As Shape
    
    For Each Nesne In ActiveSheet.Shapes
        If Nesne.Type <> 8 And Nesne.Type <> 12 Then
            Nesne.Delete
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Mesafe]

Korhan Hocam, çok teşekkür ederim.
Butonlarıma dokunmadan diğer logo resimlerini siliyor.
Saygılar,

 

[teonet]

Çok güzel olmuş elinize sağlık. benimde işime yaradı..

 

[_kira_]

Hocam aynı dertten bende yakınıyorum çözümlerinizi okudum lakin verdiğiniz kodu nereye yazmam gerektiğini bilmiyorum. Şimdiden teşekkürler

 

[Barons]

Korhan hocam 8 nolu mesajdaki kodu sadece aktif sayfada değilde tüm kitapta artık kaç adet sayfa var ise, hepsinde nesneleri silecek şekilde (buton düğmeleri kalacak ) nasıl yaparız?
teşekkürler

 

[Barons]

özür dilerim ..4 nolu mesaj olacaktı..sanırım onuda Ömer hocam yazmış..bu makroyu kitaplığın tüm sayfalarında nasıl kullanırım.?

 

[Orion1]

özür dilerim ..4 nolu mesaj olacaktı..sanırım onuda Ömer hocam yazmış..bu makroyu kitaplığın tüm sayfalarında nasıl kullanırım.?

Buyurun.

Sub nesnesil59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.DrawingObjects.Delete
Next
End Sub

 

[Barons]

Evren hocam çok çok teşekkürler...Bu sitenin bende emeği çoktur...Hiç bir karşılık beklemeden zaman ayıran ve Bu siteyi kuran,idame ettiren tüm hocalarımızdan ve Hepinizden Allah razı olsun,işleriniz bereketli ve hayırlı olsun, sağlık ve afiyet içinde olun inşallah

 

[Orion1]

Evren hocam çok çok teşekkürler...Bu sitenin bende emeği çoktur...Hiç bir karşılık beklemeden zaman ayıran ve Bu siteyi kuran,idame ettiren tüm hocalarımızdan ve Hepinizden Allah razı olsun,işleriniz bereketli ve hayırlı olsun, sağlık ve afiyet içinde olun inşallah

Rica ederim.
İyi çalışmalar.

 

[DEKORrehberi.com]

Teşekkürler

 

[hacimd]

makro kodu ile eklediğim önceki resmi silmek ve yenisini eklemek istiyorum. Manuel olarak eklediğim resimlerin silinmesini istemiyorum. bunun için hangi kodu kullanabilirim arkadaşlar.
Range("D5").ClearContents
ActiveSheet.DrawingObjects.Delete (kodla eklemediğim resimleri de siliyor)
komutlarını kullandım olmadı

 

[Murat OSMA]

İlk 2-3 resmi bırakır gerisini siler. Referans olarak kullanabilirsiniz.
Net çözüm isterseniz örnek dosyanızı göndermeniz gerekir.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    For i = ActiveSheet.DrawingObjects.Count To 3 Step -1
        ActiveSheet.DrawingObjects(i).Delete
    Next i
End Sub[/SIZE][/FONT]

 

[hacimd]

Teşekkür ederim