Yazı genişliği ve uzunluğuna göre açıklama pencerisini otomatik boyutlandırmak

[HAKANP]

Yazı genişliği ve uzunluğuna göre hücre açıklama penceresini otomatik boyutlandırmak

Sayın Ayhan Ercan yardımlarıyla oluşturduğum bir excel tablosunda hücreye aşağıdaki kod ile başka bir sayfadan gelen değerleri ( Ad ve Soyad ) hücre açıklama penceresine alt alta ekliyoruz.
Ancak açıklama olarak eklenen değerlerin uzunlukları ( yatay ) ve sayıları arttıkça ( dikey ) hücre açıklama penceresinin otomatik olarak boyutlanması gerekiyor.

Sorunumuz : Açıklama ebat ile ilgili otomatik boyutlandırma, Açıklamadaki yazı genişliği ve uzunluğu otomatik sığdırılacak

Kod : Sheets(2).Cells(i + 4, 9).Comment.Text Text:=Application.UserName & Chr(10) & ek3

 

[Recep İpek]

A1 hücresine açıklama eklemek için kullandığım aşağıdaki kodlarda

.Shape.TextFrame.AutoSize = True

satırını kullanabilirsiniz.

Sub AddComment()
[COLOR=navy]yazı[/COLOR] = "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
[COLOR=green]'*******************************************[/COLOR]
With Range("a1")
    .ClearComments
    .AddComment
        With .Comment
            .Visible = [COLOR=royalblue]True[/COLOR]
            .Shape.TextFrame.AutoSize = [COLOR=royalblue]True[/COLOR]
            .Text [COLOR=navy]yazı[/COLOR]
                With .Shape.TextFrame.Characters.Font
                    .Size = 10
                    .Bold = [COLOR=royalblue]False[/COLOR]
                    .ColorIndex = 5
                End With
        End With
End With
[COLOR=green]'*******************************************[/COLOR]
End Sub

 

[Ayhan Ercan]

Merhaba

Sevgili Recep hocam ellerine sağlık,

"TextFrame" = arayıpta bulamadığım şey bu işte... k::

 

[Recep İpek]

Önemli değil.İşinize yaradığına çok sevindim...

 

[HAKANP]

Sayın Ayhan Bey ve Recep Bey'e sonsuz teşekkürler. Vermiş olduğunuz kodu kendi programıma uyarladım. Harika oldu.
Visible = True kısmını
Visible = False yaparak açıklamaların hücre üzerine gelindiğinde görüntülenmesini sağladım çok hoş görünüyor. Sıkıntılarım oldukça sizleri yeniden rahatsız edeceğim.
Saygılarımla,