RSS

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

31 Mar

กรณีที่มีปัญหากล่องความเห็นหรือกล่อง 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

Posted by on 31/03/2012 in Comment

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: