การ Resize Comment พร้อมกันทุก Sheet

กรณีที่มีปัญหากล่องความเห็นหรือกล่อง Comment จำนวนมากมีขนาดไม่พอดีกับข้อความ เช่นเล็กไปหรือใหญ่ไป หากต้องจัดการด้วยมือเพื่อให้พอดีกับข้อความแล้วจะทำเสียเวลาไปมากมายครับ

จากปัญหาดังกล่าว เราสามารถใช้ Code VBA ตามด้านล่างในการจัดการปรับกล่องความเห็นให้พอดีกับข้อความพร้อมกันทีเดียวทุกชีทได้ครับ Winking smile

Sub AutoSizeCmt()
    Dim i As Integer
    Dim c As Comment
    Dim cmt As Comments
    For i = 1 To Worksheets.Count
        Set cmt = Worksheets(i).Comments
        For Each c In cmt
            c.Shape.TextFrame.AutoSize = True
        Next c
    Next i
End Sub

Leave a Comment

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Scroll to Top