วิธีปรับขนาดกล่องข้อความให้พอดีกับเนื้อหาใน Excel โดยอัตโนมัติ

ขนาดกล่องข้อความได้รับการแก้ไขหลังจากแทรกลงในแผ่นงาน ดังนั้นขนาดจะไม่ปรับให้พอดีกับข้อความที่คุณแทรกหรือลบ บทความนี้มีวัตถุประสงค์เพื่อแสดงวิธีการปรับขนาดกล่องข้อความโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาใน Excel

ปรับขนาดกล่องข้อความโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาโดยการปรับขนาดรูปร่างให้พอดีกับคุณสมบัติข้อความ
ปรับขนาดกล่องข้อความทั้งหมดโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาด้วยรหัส VBA

---

ปรับขนาดกล่องข้อความโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาโดยการปรับขนาดรูปร่างให้พอดีกับคุณสมบัติข้อความ

คุณสามารถเปลี่ยนคุณสมบัติของกล่องข้อความดังต่อไปนี้เพื่อปรับขนาดโดยอัตโนมัติด้วยข้อความที่คุณป้อนหรือลบ

1. หลังจากใส่กล่องข้อความแล้วให้คลิกขวาที่เส้นขอบของกล่องข้อความจากนั้นคลิก ขนาดและคุณสมบัติ จากเมนูคลิกขวา ดูภาพหน้าจอ:

2. คุณสามารถดูไฟล์ จัดรูปแบบรูปร่าง บานหน้าต่างจะแสดงทางด้านขวาของแผ่นงานภายใต้ไฟล์ ขนาดและคุณสมบัติ ตรวจสอบแท็บ ปรับขนาดรูปร่างให้พอดีกับข้อความ กล่องใน กล่องข้อความ แล้วปิดไฟล์ จัดรูปแบบรูปร่าง บานหน้าต่าง ดูภาพหน้าจอ:

จากนี้ไปกล่องข้อความจะปรับขนาดให้พอดีกับเนื้อหาโดยอัตโนมัติ

หมายเหตุ: ด้วยวิธีนี้หากมีการเปลี่ยนแปลงหลายกล่องข้อความคุณต้องเปลี่ยนคุณสมบัติของกล่องข้อความทีละกล่อง

---

ปรับขนาดกล่องข้อความทั้งหมดโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาด้วยรหัส VBA

สำหรับแผ่นงานที่มีกล่องข้อความหลายกล่องอยู่แล้วรหัส VBA ต่อไปนี้สามารถช่วยให้คุณปรับขนาดโดยอัตโนมัติให้พอดีกับเนื้อหาได้ในครั้งเดียว

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: ปรับขนาดกล่องข้อความทั้งหมดโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาในแผ่นงาน

Sub TextBoxResizeTB()
    Dim xShape As Shape
    Dim xSht As Worksheet
    On Error Resume Next
    For Each xSht In ActiveWorkbook.Worksheets
        For Each xShape In xSht.Shapes
            If xShape.Type = 17 Then
                xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
                xShape.TextFrame2.WordWrap = True
            End If
        Next
    Next
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นคุณจะเห็นกล่องข้อความทั้งหมดในแผ่นงานปัจจุบันถูกปรับขนาดโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาดังภาพด้านล่างที่แสดง

และกล่องข้อความเหล่านี้จะปรับขนาดโดยอัตโนมัติพร้อมกับเนื้อหาที่คุณป้อนหรือลบเพื่อใช้ในอนาคต

---

บทความที่เกี่ยวข้อง:

• วิธีปรับขนาดกล่องความคิดเห็นอัตโนมัติให้พอดีกับเนื้อหาใน Excel