Bir hücre aralığındaki tüm resimler nasıl silinir?
Çalışma sayfanıza doldurulmuş birden fazla resim varsa, şimdi, bazılarını belirli bir aralıkta silmek istiyorsunuz, bununla nasıl hızlı bir şekilde başa çıkıyorsunuz?
VBA kodu ile belirli bir hücre aralığındaki tüm resimleri silin
ile bir çalışma sayfasındaki veya tüm çalışma kitabındaki tüm resimleri silin Kutools for Excel
VBA kodu ile belirli bir hücre aralığındaki tüm resimleri silin
İşte basit bir VBA kodu, seçilen aralıktaki görüntüleri tek tek silmeden silmenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > Modül, ve aşağıdaki kodu modül Pencere.
VBA kodu: seçilen hücre aralığındaki tüm resimleri silin:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve seçilen aralıktaki resimler bir kerede silindi, ekran görüntüsüne bakın:
ile bir çalışma sayfasındaki veya tüm çalışma kitabındaki tüm resimleri silin Kutools for Excel
Bir çalışma sayfasından veya çalışma kitabından tüm resimleri silmeniz gerekirse, Kutools for Excel's Resimleri ve Nesneleri Sil yardımcı program size bir iyilik yapabilir.
| Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. tıklayın Kutools > Sil > Resimleri ve Nesneleri Sil, ekran görüntüsüne bakın:
2. In Resimleri ve Nesneleri Sil iletişim kutusu, işaretleyin Fotoğraf Galerisi itibaren Sil bölümünü seçin ve ardından resimleri silmek istediğiniz kapsamı seçin. arama konumu bölümü, ekran görüntüsüne bakın:
3. Sonra tıklayın Ok düğmesini tıklarsanız tüm resimler çalışma sayfasından veya seçtiğiniz tüm çalışma kitabından silinir.
İndirmek için tıklayınız Kutools for Excel ve Şimdi ücretsiz deneme!
En İyi Ofis Üretkenlik Araçları
Excel Becerilerinizi Güçlendirin Kutools for Excelve Verimliliği Daha Önce Hiç Olmadığı Şekilde Deneyimleyin. Kutools for Excel Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab Sekmeli arabirimi Office'e getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
