Yazıyı Açıklamalara Otomatik Olarak Sığdır - Microsoft Excel

Açıklama yazısını açıklama alanına otomatik olarak sığdırmaya yarayan VBA kodudur.

Option Explicit

Sub YaziyiAciklamalaraOtomatikOlarakSigdir()
    Dim hucre As Range
    
    Application.DisplayCommentIndicator = xlCommentAndIndicator
    
    For Each hucre In ActiveSheet.Cells.SpecialCells(1)
        hucre.Comment.Shape.Select True
        Selection.AutoSize = True
        Selection.ShapeRange.Width = 150
        Selection.ShapeRange.Height = 100
    Next
    
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub