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 geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!