Excel'de yorum kutusunu içeriğine göre otomatik olarak nasıl boyutlandırabilirsiniz?

Hücrelere yorum eklediğinizde, yorum kutusunun boyutu varsayılan olarak ayarlanır. Eğer içine çok fazla metin girerseniz, bazı içerikler doğrudan görünmeyebilir. Yorum kutusunun boyutunu içeriğine göre otomatik olarak ayarlamak mümkün mü?

Bir çalışma sayfasında yorum kutusunu içeriğine göre otomatik olarak boyutlandırma
Bir hücre aralığındaki yorum kutularını içeriğine göre otomatik olarak boyutlandırma
Harika bir araç ile aktif sayfadaki veya tüm sayfalardaki yorum kutularını içeriğine göre kolayca otomatik olarak boyutlandırın

Bir çalışma sayfasında yorum kutusunu içeriğine göre otomatik olarak boyutlandırma

Excel'de, yorum kutusunu ihtiyacınıza göre tek tek manuel olarak sürükleyerek boyutlandırabilirsiniz, ancak çok sayıda yorum kutusu varsa bu yöntem oldukça zahmetli ve zaman alıcı olur. Bu durumda aşağıdaki VBA kodunu kullanabilirsiniz.

1. ALT + F11 tuşlarına basılı tutun, böylece Microsoft Visual Basic for Applications penceresi açılır.

2. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Bir çalışma sayfasındaki yorum kutularını otomatik olarak boyutlandırma

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Ardından F5 tuşuna basarak bu kodu çalıştırın; aktif çalışma sayfasındaki tüm yorum kutuları aşağıdaki ekran görüntüsünde gösterildiği gibi içeriğe uygun şekilde yeniden boyutlandırılmış olacaktır:

İpucu: Bu kod yalnızca geçerli çalışma sayfasında çalışır ve eklediğiniz yeni yorum kutularını otomatik olarak yeniden boyutlandıramaz.

Bir hücre aralığındaki yorum kutularını içeriğine göre otomatik olarak boyutlandırma

Sadece belirli bir hücre aralığındaki yorum kutularını otomatik olarak boyutlandırmak istiyorsanız, aşağıdaki VBA kodunu kullanabilirsiniz.

1. ALT + F11 tuşlarına basılı tutun, böylece Microsoft Visual Basic for Applications penceresi açılır.

2. Ekle > Modül'e tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Bir hücre aralığındaki yorum kutularını otomatik olarak boyutlandırma

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Ardından F5 tuşuna basarak bu kodu yürütün; bir uyarı kutusu açılarak yorum kutularını yeniden boyutlandırmak istediğiniz hücre aralığını seçmenizi ister, ekran görüntüsüne bakınız:

4. Sonrasında Tamam'a tıklayın, seçtiğiniz hücrelerdeki yorum kutuları yorum içeriğine göre otomatik olarak boyutlandırılmış olacaktır.

İpucu: Bu kod, eklediğiniz yeni yorum kutularını otomatik olarak yeniden boyutlandıramaz.

Yorum kutusunu aktif sayfada veya tüm sayfalarda içeriğine göre otomatik olarak boyutlandırma

Şunu deneyebilirsiniz Yorum Boyutunu Otomatik Ayarla aracını Kutools for Excel ileExcel'de aktif sayfadaki veya tüm sayfalardaki tüm yorum kutularını otomatik olarak yeniden boyutlandırabilirsiniz. Lütfen aşağıdaki adımları izleyin.

1. Yorum kutularını aktif sayfada içeriğine göre otomatik olarak boyutlandırmak için lütfen Kutools > Daha Fazla > Yorum Boyutunu Otomatik Ayarla > Aktif Çalışma Sayfası'na tıklayın.

Ve eğer tüm çalışma kitabındaki tüm yorum kutularını otomatik olarak boyutlandırmak istiyorsanız, lütfen Kutools > Daha Fazla > Yorum Boyutunu Otomatik Ayarla > Tüm Çalışma Sayfaları'na tıklayın. Ekran görüntüsüne bakınız:

Sonrasında tüm yorum kutuları içeriklerine uygun şekilde otomatik olarak yeniden boyutlandırılır. Ekran görüntüsüne bakınız:

Notlar:

• 1. Yorum kutularını otomatik olarak yeniden boyutlandırdıktan sonra, yorumu tekrar düzenlediğinizde kutu içeriğe göre otomatik olarak genişler veya daralır.
• 2. Eklediğiniz yeni yorumlar için, tüm yeni eklenen yorum kutularını yeniden boyutlandırmak amacıyla bu Yorum Boyutunu Otomatik Ayarla aracını tekrar etkinleştirmeniz gerekir.

İlgili makaleler:

• Excel'de yorum kutusunun şeklini nasıl değiştirebilirim?
• Excel'de hücrelerdeki tüm yorum biçimlerini nasıl değiştirebilirim?
• Excel'de tüm yorumları yeni bir çalışma sayfasına veya çalışma kitabına nasıl listeleyebilirim?
• Excel'de yoruma nasıl resim veya görsel eklenir?