Bir hücre aralığındaki tüm resimleri nasıl kaldırabilirim?
Çalışma sayfanıza birden fazla resim eklenmişse ve bunlardan bazılarını belirli bir aralıkta hızlıca silmek istiyorsanız, bunu nasıl yaparsınız?
Belirli bir hücre aralığındaki tüm resimleri VBA koduyla silme
Bir çalışma sayfasındaki veya tüm çalışma kitabındaki tüm resimleri Kutools for Excel ile silme
Belirli bir hücre aralığındaki tüm resimleri VBA koduyla silme
İşte size resimleri tek tek silmeden Seçili Aralık silmenize yardımcı olacak basit bir VBA kodu; lütfen aşağıdaki gibi yapın:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: bir hücre Aralık seç içindeki 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 aralığı, silmek istediğiniz resimlerin bulunduğu alandır; lütfen bunu kendi ihtiyacınıza göre güncelleyin.
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın; böylece Aralık seçimi içindeki resimler aynı anda silinir. Ekran görüntüsüne bakın:
Bir çalışma sayfasındaki veya tüm çalışma kitabındaki tüm resimleri Kutools for Excel ile silme
Bir çalışma sayfasından veya çalışma kitabından tüm resimleri silmeniz gerekiyorsa, Kutools for Excel’in Resimleri ve Nesneleri Sil aracı size yardımcı olabilir.
Kutools for Excel yükledikten sonra,Kutools for Excellütfen aşağıdaki adımları izleyin:
1. Kutools > Sil > Resimleri ve Nesneleri Sil seçeneğine tıklayın (ekran görüntüsüne bakın):
2.Resimleri ve Nesneleri Sililetişim kutusunda,Resimlerseçeneğini Silbölümünden işaretleyin ve ardından resimleri nereden silmek istediğinizi içinde arabölümünden belirleyin, ekran görüntüsüne bakın:
3. Ardından Tamam düğmesine tıklayın; böylece tüm resimler, seçtiğiniz çalışma sayfasından veya tüm çalışma kitabından silinir.
Kutools for Excel – Excel için ihtiyaç duyduğunuz 300'den fazla aracı tek bir pakette sunar. Excel işlerinizi daha hızlı, daha kolay ve daha verimli hale getirin.Hemen indirin!
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve verimlilikte hiç yaşamadığınız bir deneyime ulaşın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office'a sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile Office Tab Pro’yu içerir; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında verimliliği akıcı hale getirir
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi değer— tek tek eklenti satın almak yerine tasarruf edin