Ana içeriğe atla

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 iyi fikir3


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?

doc-resize-cell-to-fit-piccture1

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:

doc-resize-cell-to-fit-piccture2


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.
doc yeniden boyutlandır resmi hücreye sığdır 1

Kutools for Excel, ile daha fazla 120 kullanışlı fonksiyonlar, işlerinizi kolaylaştırır. 

Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın :(Şimdi Excel için Kutools'u Ücretsiz İndirin!)

1. tık kuruluş > İthalat / İhracat > Resimleri içe aktarma. Ekran görüntüsüne bakın:
doc yeniden boyutlandır resmi hücreye sığdır 2

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:
doc yeniden boyutlandır resmi hücreye sığdır 3

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:
doc yeniden boyutlandır resmi hücreye sığdır 4

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:
doc yeniden boyutlandır resmi hücreye sığdır 5

5. tık OKve şimdi tüm pirtcures hücrelere aktarılıyor ve boyutlarını uydurma hücrelere yeniden boyutlandırıyor.
doc yeniden boyutlandır resmi hücreye sığdır 6


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

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği 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...

Açıklama


Office Tab, Office'e Sekmeli Arayüz 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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations