Excel'deki hücrelere sığdırmak için resimleri nasıl yeniden boyutlandırabilirim?
Normal olarak eklenen resimler hücrelerin üzerinde yüzer ve çoğu zaman bir resim çok sayıda hücreyi kaplar. Çalışma sayfasında çok sayıda resim varsa, her resmi tek bir hücreye yerleştirmek isteyebilirsiniz. Ama bununla nasıl başa çıkılır? Aslında, resimleri hücrelerin boyutuna hızlı bir şekilde sığdırmak için yeniden boyutlandırmamıza yardımcı olacak birkaç zor yol var.
Seçili bir resmi VB Makro ile tek bir hücreye sığacak şekilde yeniden boyutlandırma
Kutools for Excel ile eklenen resimleri hücrelere sığacak şekilde yeniden boyutlandırın
Seçili bir resmi VB Makro ile tek bir hücreye sığacak şekilde yeniden boyutlandırma
Seçilen bir resmi tek bir hücreye sığacak şekilde yeniden boyutlandırmak için VB makroları uygulayabiliriz, ancak bir resmin genişliğini ve yüksekliğini manuel olarak yeniden boyutlandırmayız. Bunu aşağıdaki adımlarla yapabilirsiniz:
Adım 1: Resimleri bir çalışma sayfasına ekleyin ve tek bir hücreye sığması için yeniden boyutlandıracağınız bir resim seçin.
Adım 2: tuşunu basılı tutun. ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
Adım 3: Tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresine yapıştırın.
VBA: Seçili resmi bir hücreye sığacak şekilde yeniden boyutlandırın.
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
Adım 4: tuşuna basın. F5 Bu makroyu çalıştırmak için anahtar.
Adım 5: Diğer resimleri tek hücreye sığacak şekilde yeniden boyutlandırmak için yukarıdaki adımları tekrarlayın.
Şimdi eklenen tüm resimler yeniden boyutlandırılır ve hücrelere sığar. Aşağıdaki ekran görüntüsüne bakın:
not: Tek seferde yalnızca bir resmi yeniden boyutlandırabilirsiniz. Bir seferde birden fazla resim seçerseniz, bir uyarı iletişim kutusu açılır.
Kutools for Excel ile eklenen resimleri hücrelere sığacak şekilde yeniden boyutlandırın
Eğer varsa Kutools for Excel yüklü, uygulayabilirsiniz Resimleri içe aktarma tüm resimleri hücrelere sığacak şekilde veya resimleri eklerken sabit yükseklikte yeniden boyutlandırma aracı.
Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın.
Adım 1: Resim eklemek istediğiniz aralık hücrelerini seçin ve kuruluş >İthalat / İhracat > Resimleri içe aktarma. Aşağıdaki ekran görüntüsüne bakın:
2. Adım: Resimleri içe aktarma iletişim kutusunda açılır listeden ekleme sırasını seçin ve tıklayın Ekle dosya veya klasörden ihtiyacınız olan resimleri eklemek için düğmesine, ardından beden buton. Ekran görüntüsüne bakın:
3. Adım: Kontrol edin Eşleşen hücre boyutu seçeneği. Sonra tıklayın Ok > ithalat diyalogları kapatmak için. Ekran görüntüsüne bakın:
Artık resimlerin hücrelere sığacak şekilde eklendiğini görebilirsiniz.
not: Resimleri yeniden boyutlandırmak için 3. adımda hücre yüksekliğini ve genişliğini de belirtebilirsiniz.
Bununla ilgili daha fazla bilgi edinmek istiyorsanız Resmi İçe Aktar özellik, lütfen ziyaret edin okuyun.
İlgili Makale:
Excel'de üstlerindeki resimleri hızla sığdırmak için birden çok hücre nasıl yeniden boyutlandırılır?
En İyi Ofis Üretkenlik Araçları
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...
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!