Excel'de birden fazla hücreyi resimlere oturtmak için nasıl hızlıca yeniden boyutlandırabilirim?
Bildiğiniz gibi, Microsoft Excel, uzun bir metin dizesi gibi içeriğe göre hücrenin Satır Yüksekliğini ve Sütun Genişliğini otomatik olarak ayarlamayı destekler. Ancak eklenen bir resim belirli bir hücreye yerleşmediği için, hem **Otomatik Sığdır Satır Yüksekliği** hem de **Otomatik Sığdır Sütun Genişliği** komutları resimler için geçerli değildir.
Resimlere oturtmak için hücreleri VBA ile yeniden boyutlandırma
Hücrelere oturtmak için resimleri Kutools for Excel ile yeniden boyutlandırma
Resimlere oturtmak için hücreleri VBA ile yeniden boyutlandırma
Bir çalışma sayfasında aşağıdaki ekran görüntüsünde gösterildiği gibi iki büyük resim olduğunu varsayalım. Hücrenin üzerindeki resme uyacak şekilde hücreyi yeniden boyutlandırmak isteyebilirsiniz. Peki bunu nasıl yaparsınız?
Elbette, her bir hücreyi üzerindeki resme tam uyumlu hale getirecek şekilde otomatik olarak yeniden boyutlandırabilirsiniz. Ancak çok sayıda resim varsa bu işlem oldukça yorucu ve zaman alıcı olabilir. Neyse ki, tüm hücreleri üzerlerindeki resimlere oturtacak şekilde tek seferde yeniden boyutlandırmak için bir VB makrosu kullanabilirsiniz. Bunu aşağıdaki adımları izleyerek kolayca gerçekleştirebilirsiniz:
Adım 1: ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
Adım 2: Ekle > Modül seçeneğine tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın.
VBA: Birden fazla hücreyi, kendi resimlerine tam oturacak şekilde yeniden boyutlandırın.
Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End SubAdım 3: Bu makroyu çalıştırmak için F5 tuşuna basın.
Geçerli çalışma sayfasında resimler varsa, bir resmin altındaki hücre, üzerindeki resme otomatik olarak uyum sağlayacak şekilde yeniden boyutlandırılır. Aşağıdaki ekran görüntüsüne göz atın:
Hücrelere oturtmak için resimleri Kutools for Excel ile yeniden boyutlandırma
Aşağıdaki ekran görüntüsünde gösterildiği gibi hücre boyutlarını önceden ayarladıysanız ve ardından resimleri içe aktarıp bunları hücre boyutlarına oturtmak istiyorsanız, bunu nasıl hızlıca yapabilirsiniz? İşte tam bu noktada, Kutools for Excel’in Resimleri İçe Aktar aracı işinizi kolayca halleder.
Kutools for Excel yüklendikten sonra lütfen aşağıdaki gibi yapın:Kutools for Excel
1. KUTOOLS PLUS > İçe/Dışa Aktar > Resimleri İçe Aktar seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Açılan Resimleri İçe Aktar iletişim kutusunda, önce İçe Aktar Sırası kısmından İçe Aktar Sırası’nı belirleyebilir, ardından klasörden veya tek tek dosya olarak resim eklemek için Ekle düğmesine tıklayabilirsiniz. Ardından resimlerin Resim bölümünde listelendiğini göreceksiniz. Ekran görüntüsüne bakın:
3. Ardından, İçe Aktar düğmesine tıklayarak Resim Boyutunu İçe Aktar iletişim kutusunu açın ve ardından Hücre Boyutunu Eşleştir seçeneğini işaretleyin. Ekran görüntüsüne bakın:
4. Tamam > İçe Aktar seçeneğine tıkladığınızda, resimleri içe aktarmak istediğiniz hücreleri seçmenizi sağlayan bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:
5. Tamam düğmesine tıklayın; artık tüm resimler hücrelere içe aktarılmış ve hücrelere sığacak şekilde yeniden boyutlandırılmıştır.
İlgili Makale:
Excel'de birden fazla resmi hücreye nasıl eklerim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayı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 uygulamalarına sekmeli bir arayüz kazandırarak 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.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- 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 kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar