Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

Makrolar Çözüldü sayfaki resim üstündeki 2. resimleri silmek

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

wolfret

Yeni Üye
Kullanıcı
Katılım
8 Eki 2018
Mesajlar
33
Excel Versiyonu, Dili
Bilinmiyor

Reputation:

aşağıdaki kodlar sayfadaki tüm resimleri siliyor. benim sayfamda 1 resim üzerinde 2. resim var. ben ise sayfanın içersinde aşağı satırlarda var olan 2. resimleri silmek istiyorum. düzenlememe yapılır , yoksa yeni bir kod mu gerekir ?

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
 

wolfret

Yeni Üye
Kullanıcı
Katılım
8 Eki 2018
Mesajlar
33
Excel Versiyonu, Dili
Bilinmiyor

Reputation:

Sub resimsil()
For syf = 1 To Sheets.Count
Sheets(syf).Pictures.Delete
Next
End Sub

şu kod ile çözüm buldum
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst