Bir Word belgesindeki resim sayısını nasıl hesaplayabilirim?
Word belgenizde hem satır içi resimler hem de yüzen şekiller içeren birden fazla grafik varsa, şimdi bu grafiklerin sayısını tüm belgede saymak istiyorsanız, resim sayısını hızlı ve doğru bir şekilde nasıl elde edebilirsiniz?
Bul ve Değiştir özelliğiyle satır içi görüntülerin sayısını sayın
Hem satır içi görüntülerin hem de kayan şekillerin sayısını VBA kodu ile sayın
Bul ve Değiştir özelliğiyle satır içi görüntülerin sayısını sayın
The Bul ve Değiştir Word'deki özellik, satır içi resimlerin sayısını yalnızca hızlı ve kolay bir şekilde saymanıza yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. tıklayın Ana Sayfa > bulmak > Gelişmiş Bul, ekran görüntüsüne bakın:
2. In Bul ve Değiştir iletişim kutusunun altında bulmak sekmesini yazın ^g içine Ne bul metin kutusunu seçin ve ardından Ana belge itibaren Bulmak açılır liste, ekran görüntüsüne bakın:
3. Ve sonra, bu Word belgesindeki satır içi resimlerin sayısının gösterilen aşağıdaki ekran görüntüsü gibi görüntülendiğini görebilirsiniz:
Hem satır içi görüntülerin hem de kayan şekillerin sayısını VBA kodu ile sayın
Yukarıdaki yöntem yalnızca satır içi görüntülerin sayısını sayabilir, belgede bazı yüzen şekiller varsa bunlar sayılmaz. Aşağıdaki VBA kodu hem satır içi görüntüleri hem de kayan şekilleri saymanıza 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. Daha sonra, Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:
VBA kodu: Hem satır içi görüntülerin hem de yüzen şekillerin sayısını sayın:
Sub CountImagesInDoc()
Dim xInlines As Long
Dim xFloaters As Long
Dim sh As Shape
Dim tbxs As Long
Dim msg As String
With ActiveDocument
For Each sh In .Shapes
If sh.Type = msoTextBox Then tbxs = tbxs + 1
Next
xInlines = .InlineShapes.Count
xFloaters = .Shapes.Count - tbxs
End With
xPrompt = "Inline images:" & vbTab & xInlines & vbCr
xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
xPrompt = xPrompt & "Counts do not include headers and footers, etc."
MsgBox xPrompt, vbInformation, "Kutools for Word"
End Sub
3. Kodu yapıştırdıktan sonra F5 Bu kodu çalıştırmak için bir anahtar ve size bu Word belgesinde kaç tane satır içi resim ve kayan şekil olduğunu söyleyen bir istem kutusu açılır, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur / Metni Yeniden Yaz / Belgeleri Özetleyin / Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / PDF'ye Toplu Dönüştürme / Sayfaları Görüntü Olarak Dışa Aktar / Aynı Anda Birden Çok Dosyayı Yazdırma...
✏ İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Yer Değiştirme / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...
➕ Yaratıcı Ekler: Ekle Bin Ayırıcı / Onay Kutuları / Radyo Düğmeleri / QR Code / Barkod / Çapraz Çizgi Tablosu / Denklem Başlığı / Görüntü Başlık / Tablo başlığı / Çoklu Resimler / Daha fazlasını şurada keşfedin: Grup Ekle...
🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar / tablolar / şekiller / başlık paragrafları / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...
⭐ Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin / tekrarlanan metni otomatik olarak ekle / belge pencereleri arasında sorunsuzca geçiş yapın / 11 Dönüşüm Aracı...