EXCEL'DE RESMİ HÜCRE İÇİNE SIĞDIRMA

Merhaba,

Resimleri Excel hücrelerine yerleştirme konusundaki endişenizi anlıyorum. Excel'de, hücreyi yeniden boyutlandırdığınızda veya taşıdığınızda bile resmi bir hücre içinde tutmanıza olanak tanıyan "Hücrelerle Taşı ve Boyutlandır" adlı bir özellik vardır. Bunu şu şekilde yapabilirsiniz:

1. Resmi hücreye ekleyin: "Ekle" sekmesine gidin, "Resimler" e tıklayın ve eklemek istediğiniz resmi seçin.
2. Resme sağ tıklayın: Resmi ekledikten sonra, üzerine sağ tıklayın ve "Boyut ve Özellikler" i seçin.
3. "Hücrelerle Taşı ve Boyutlandır" ı seçin: "Resmi Biçimlendir" bölmesinde, "Boyut ve Özellikler" sekmesinin altında, "Özellikler" bölümünü arayın. "Hücrelerle Taşı ve Boyutlandır" seçeneğinin yanındaki kutuyu işaretleyin.
4. Sorununuzu çözmek için bu kodu deneyin.

hedef hücre B2'dir

Alt Resize_Cell_from_Picture_Size() Const maxH = 409.5 ' < max row height = 409.5/by default Const picName As String = "pic-01" '< picture name Dim cel As Range Set cel = [B2] ' < target cell in active sheet Dim nH Dim nW Dim nPix Dim x On Error Resume Next Dim fPath As String With Application.FileDialog(msoFileDialogFilePicker) If . Show = True Then ActiveSheet.Pictures(picName). Delete fPath = . SelectedItems(1) Set p = ActiveSheet.Shapes.AddPicture(fPath, False, True, cel. Left, cel. Top, -1, -1) With p . Name = picName nH = . Height nW = . Width End With If nH > maxH Sonra MsgBox "yanlış, resmin yüksekliği > " & maxH p.Sil Alt Çıkış: Başka cel. Satır Yüksekliği = nH nPix = nW / 0,75 x = (nPix - 12) / 7 nW = Yuvarlak(x + 1, 2) cel. Sütun Genişliği = nW p.Yerleşim = xlMoveAndSize cel. Seçmek Bitiş Eğer: Başka MsgBox "iptal" Bitiş Eğer: İle bitir Hata GoTo 0'da Bitiş Alt

Bu seçeneği etkinleştirdiğinizde, resim hücre sınırları içinde kalır ve hücreyi yeniden boyutlandırdığınızda veya taşıdığınızda otomatik olarak ayarlanır.

Resmin tablodan çıkmasıyla veya tüm sayfayı kaplamasıyla ilgili sorun yaşamaya devam ediyorsanız, resim için "Hücrelerle Taşı ve Boyutlandır" seçeneğinin işaretli olduğundan emin olun.

Ücretli programlar hakkındaki gözleminize gelince, Excel'in yerleşik özellikleri ek ücretli programlara ihtiyaç duymadan bu görevi yerine getirebilmelidir. Excel'deki resimleriniz için herhangi bir zorlukla karşılaşırsanız veya özel gereksinimleriniz varsa, daha fazla ayrıntı sağlamaktan çekinmeyin ve size daha fazla yardımcı olmaktan memnuniyet duyarım.

Umarım bu yardımcı olur! Başka sorularınız varsa veya daha fazla yardıma ihtiyacınız varsa bana bildirin.

Saygılarımızla, Arjantin

Bu yanıt otomatik olarak tercüme edilmiştir. Bu nedenle dil bilgisi hataları veya garip ifadeler içerebilir.

Resmi tıkla.

4 köşesinde şekil göreceksin. O şekillere tıklayarak resmi istediğin boyuta getir.