Bir hücre aralığındaki tüm resimleri nasıl silerim?
Çalışma sayfanıza çok sayıda resim eklenmişse ve şimdi belirli bir aralıktaki bazılarını silmek istiyorsanız, bunu hızlıca nasıl halledersiniz?
VBA kodu ile belirli bir hücre aralığındaki tüm resimleri silme
Kutools for Excel ile bir çalışma sayfasında veya tüm çalışma kitabındaki tüm resimleri silme
VBA kodu ile belirli bir hücre aralığındaki tüm resimleri silme
İşte size seçili aralıktaki resimleri tek tek silmek zorunda kalmadan silebileceğiniz basit bir VBA kodu, lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: seçili hücre aralığındaki tüm resimleri silme:
Sub DeletePic()
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A5:B8")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
Application.ScreenUpdating = True
End Sub
Not: Yukarıdaki kodda, A5:B8, resimleri silmek istediğiniz aralıktır, lütfen ihtiyacınıza göre değiştirin.
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve seçili aralıktaki resimler hemen silinecektir, ekran görüntüsüne bakın:
Kutools for Excel ile bir çalışma sayfasında veya tüm çalışma kitabındaki tüm resimleri silme
Bir çalışma sayfasından veya bir çalışma kitabından tüm resimleri silmeniz gerekiyorsa, Kutools for Excel’in Resim ve Nesneleri Sil aracı size yardımcı olabilir.
Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:
1. Kutools > Sil > Resim ve Nesneleri Sil’e tıklayın, ekran görüntüsüne bakın:
2. Resim ve Nesneleri Sil iletişim kutusunda, Sil bölümünden Resimler'i işaretleyin ve ardından Ara alanında resimleri silmek istediğiniz kapsamı seçin, ekran görüntüsüne bakın:
3. Ardından Tamam düğmesine tıklayın ve seçtiğiniz gibi çalışma sayfasından veya tüm çalışma kitabından tüm resimler silinecektir.
Excel için Kutools - Excel için 300 adet temel araç içeren bir paket. Sürekli ücretsiz AI özellikleriyle çalışın! Hemen indirin!
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin