Açıklama Boyutu

[schlecht]

Merhaba, aşağıdaki kod ile açıklamayı hücre içerisinden alıyorum. Fakat açıklama çerçevesini boyutunu açıklamada yazan cümle uzunluğuna göre her seferinde yeniden düzenlemem gerekiyor. Bunu otomatik boyutlandıracak bir kod vardmıdır. Teşekkürler.

ElseIf (ActiveCell.Column = 14) And (ActiveCell.Row = 13) Then
Range("C13").AddComment
Range("C13").Comment.Visible = False
Range("C13").Comment.Text Text:="" & Range("N13") & ""

 

[Korhan Ayhan]

Hücreleri seçip kodu çalıştırınız.

Option Explicit

Sub Aciklamalari_Yeniden_Boyutlandir()
    Dim Veri As Range, Say As Long
    
    For Each Veri In Selection
        If Not Veri.Comment Is Nothing Then
            Veri.Comment.Shape.TextFrame.AutoSize = True
            Say = Say + 1
        End If
    Next
    
    If Say = 0 Then
        MsgBox "Açıklama bulunamadı!", vbExclamation
    Else
        MsgBox "Seçtiğiniz alandaki açıklamaların boyutları yeniden düzenlenmiştir.", vbInformation
    End If
End Sub

 

[schlecht]

Korhan Hocam teşekkürler. Çok işime yaradı.