Excel'de resimleri hızla sığdırmak için birden çok hücre nasıl yeniden boyutlandırılır?

Bildiğimiz gibi, Microsoft Excel, bir hücrenin satır yüksekliğini ve sütun genişliğini uzun metin dizesi gibi doldurulmuş içeriğe uyacak şekilde otomatik olarak yeniden boyutlandırmayı destekler. Ancak, Satır Yüksekliğini Otomatik Sığdır komutu ve Sütun Genişliğini Otomatik Sığdır komutu resim için geçerli değildir, çünkü eklenen bir resim belirli bir hücreyi kapsamaz.

VBA ile resimleri sığdırmak için hücreleri yeniden boyutlandırın

Kutools for Excel ile resimleri hücrelere sığacak şekilde yeniden boyutlandırın

VBA ile resimleri sığdırmak için hücreleri yeniden boyutlandırın

Bir çalışma sayfasında iki büyük resim olduğunu varsayarsak, aşağıdaki ekran görüntüsüne bakın. Birisi hücrenin yukarısındaki bir resmi sığdırmak için bir hücreyi yeniden boyutlandırmak isteyebilir. Ama bunu nasıl gerçekleştirebilirim?

Elbette, her bir hücreyi resimlerin üzerine sığacak şekilde otomatik olarak yeniden boyutlandırabilirsiniz. Ancak, birkaç resim için yorucu ve zaman alıcı olabilir. Aslında, tüm hücreleri üstlerindeki resimlere sığacak şekilde yeniden boyutlandırmak için bir VB makrosu uygulayabiliriz. Bunu aşağıdaki adımlarla yapabilirsiniz:

Adım 1: tuşunu basılı tutun. ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

Adım 2: Tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresine yapıştırın.

VBA: Birden çok hücreyi resimlerine sığacak ş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 Sub

Adım 3: tuşuna basın. F5 Bu makroyu çalıştırmak için anahtar.

Şimdi mevcut çalışma sayfasında, resimler varsa, bir resmin altındaki hücre, üstündeki resme sığacak şekilde yeniden boyutlandırılacaktır. Aşağıdaki ekran görüntüsüne bakın:

Kutools for Excel ile resimleri hücrelere sığacak şekilde yeniden boyutlandırın

Hücrelerin boyutunu aşağıda gösterilen ekran görüntüsü gibi ayarladıysanız ve ardından resimleri hücre boyutlarına sığacak şekilde içe aktarmak ve yeniden boyutlandırmak istiyorsanız, bunu hızlı bir şekilde nasıl yapabilirsiniz? Bu durumda, Kutools for Excel's Resimleri İçe Aktar yardımcı program bu işi kolayca halletmenize yardımcı olabilir.

Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. tık Kutools Artı > İthalat / İhracat > Resimleri içe aktarma. Ekran görüntüsüne bakın:

2. patlamada Resimleri içe aktarma iletişim kutusu, ilk olarak içeri aktarma sırasını belirtebilirsiniz. Siparişi içe aktar bölümünü ve ardından tıklayın Ekle resimleri klasörden veya dosya olarak tek tek eklemek için düğmesine basın, ardından resimlerin listede olduğunu görebilirsiniz. Resim Bölüm. Ekran görüntüsüne bakın:

3. Sonra tıklayın ithalat göstermek için düğme Resim Boyutunu İçe Aktar iletişim kutusu, ardından kontrol edin Eşleşen hücre boyutu seçeneği. Ekran görüntüsüne bakın:

4. tık OK > ithalat resimleri içe aktarmak istediğiniz hücreleri seçmek için bir iletişim kutusu görüntülemek için. Ekran görüntüsüne bakın:

5. tık OKve artık tüm pirtcur'lar hücrelere aktarılıyor ve hücrelere sığacak şekilde boyutları yeniden boyutlandırılıyor.

İlgili Makale:
Excel'de hücreye birden çok resim nasıl eklenir?