Excel에서 텍스트 상자의 크기를 자동으로 조정하여 내용에 맞추는 방법은 무엇입니까?

텍스트 상자는 워크시트에 삽입된 후 크기가 고정됩니다. 따라서 삽입하거나 삭제한 텍스트에 맞게 크기가 조정되지 않습니다. 이 문서에서는 Excel에서 텍스트 상자의 크기를 자동으로 조정하는 방법을 소개합니다.

텍스트에 맞게 도형 크기 조정 기능을 사용하여 텍스트 상자 자동 크기 조정
VBA 코드를 사용하여 모든 텍스트 상자를 내용에 맞게 자동 크기 조정

텍스트에 맞게 도형 크기 조정 기능을 사용하여 텍스트 상자 자동 크기 조정

다음과 같이 텍스트 상자의 속성을 변경하여 입력하거나 삭제한 텍스트에 따라 자동으로 크기가 조정되도록 할 수 있습니다.

1. 텍스트 상자를 삽입한 후, 텍스트 상자의 테두리를 마우스 오른쪽 버튼으로 클릭하고, 마우스 오른쪽 버튼 메뉴에서 '크기 및 속성'을 클릭합니다. 스크린샷 보기:

2. 다음을 볼 수 있습니다. 도형 서식 창이 워크시트의 오른쪽에 표시되고, 아래의 크기 및 속성 탭에서 텍스트에 맞게 도형 크기 조정 상자를 체크하고, 텍스트 상자 섹션에서 확인한 후, 도형 서식 창을 닫습니다. 스크린샷 보기:

이제부터 텍스트 상자는 내용에 맞게 자동으로 크기가 조정됩니다.

참고: 이 방법을 사용할 경우 여러 개의 텍스트 상자를 변경해야 하는 경우 각각의 텍스트 상자 속성을 하나씩 변경해야 합니다.

VBA 코드를 사용하여 모든 텍스트 상자를 내용에 맞게 자동 크기 조정

이미 여러 개의 텍스트 상자가 있는 워크시트의 경우, 다음 VBA 코드를 사용하면 한 번에 내용에 맞게 자동으로 크기를 조정할 수 있습니다.

1. Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 '삽입 > 모듈'을 클릭합니다. 그런 다음 아래의 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에서 의견 상자를 내용에 맞게 자동 크기 조정하려면 어떻게 해야 합니까?