Excel에서 텍스트를 해당 그림으로 바꾸는 방법은 무엇입니까?

실제 작업에서는 특정 셀의 텍스트에 따라 Excel에서 자동으로 해당 이미지를 표시하고 싶을 때가 많습니다(예: 제품 이름에 따라 제품 이미지 표시 또는 상태에 따라 해당 아이콘 표시). Excel 자체에는 "텍스트-이미지" 기능이 내장되어 있지 않기 때문에 이 목표를 달성하려면 몇 가지 기술을 사용해야 합니다. 아래에서 이 문서는 두 가지 주요 솔루션과 그 최적화 방법을 자세히 설명합니다.

VBA 코드를 사용하여 텍스트를 해당 그림으로 바꾸기

Kutools for Excel을 사용하여 텍스트를 해당 그림으로 바꾸기

VBA 코드를 사용하여 텍스트를 해당 그림으로 바꾸기

일반적으로 Excel에서 텍스트 문자열에 따라 관련 그림을 삽입하는 쉬운 방법은 없지만, 다음 VBA 코드는 텍스트를 해당 그림으로 바꾸는 데 도움이 될 수 있습니다.

1. "Alt + F11"을 눌러 "Microsoft Visual Basic for Applications" 창을 표시합니다.

2. 창에서 "삽입" > "모듈"을 클릭하여 새 모듈 창을 표시한 후, 다음 VBA 코드를 모듈 창에 복사하여 붙여넣습니다.

VBA 코드: 텍스트를 해당 그림으로 바꾸기

Sub ReplaceTextWithPictures()
'Updateby Extendoffice
    Dim ws As Worksheet
    Dim selectedRange As Range
    Dim cell As Range
    Dim pic As Picture
    Dim picPath As String
    Dim foundPic As Boolean
    Dim fileExtensions As Variant
    Dim ext As Variant
    Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
    fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
    On Error Resume Next
    Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
    On Error GoTo 0
    If selectedRange Is Nothing Then
        MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
        Exit Sub
    End If
    Set ws = selectedRange.Worksheet
    For Each cell In selectedRange
        If Not IsEmpty(cell.Value) Then
            foundPic = False
            For Each ext In fileExtensions
                picPath = imageFolderPath & cell.Value & "." & ext
                If Dir(picPath) <> "" Then
                    foundPic = True
                    Exit For
                End If
            Next ext
            If foundPic Then
                For Each pic In ws.Pictures
                    If pic.TopLeftCell.Address = cell.Address Then pic.Delete
                Next pic
                Set pic = ws.Pictures.Insert(picPath)
                With pic
                    .Top = cell.Top
                    .Left = cell.Left
                    .Width = cell.Width
                    .Height = cell.Height
                End With
            End If
        End If
    Next cell
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하고, 나타난 대화 상자에서 해당 그림을 삽입할 데이터 범위를 선택하세요. 스크린샷 참고:

4. 그리고 확인 버튼을 클릭하면 모든 해당 이미지가 원래 텍스트를 대체합니다. 스크린샷 참고:

Kutools for Excel을 사용하여 텍스트를 해당 그림으로 바꾸기

VBA 코드를 사용하거나 익숙하지 않은 경우 Kutools for Excel을 사용해 볼 수 있습니다. 이 도구는 강력하고 효율적인 솔루션을 제공하며, 몇 번의 클릭만으로 텍스트를 해당 이미지로 쉽게 바꿀 수 있습니다. Kutools를 사용하면 코드를 작성하지 않고도 특정 텍스트를 미리 설정된 이미지와 일치시킬 수 있습니다. 또한 필요에 따라 이미지 크기를 조정할 수 있어 Excel 시트 내에서 더 유연하게 활용할 수 있습니다.

Kutools for Excel 설치 후 다음과 같이 해보세요:

1. "Kutools Plus" > "가져오기 및 내보내기" > "그림 일치 가져오기"를 클릭하세요. 스크린샷 참고:

2. "그림 일치 가져오기" 대화 상자에서 다음과 같이 옵션을 설정하세요:

• "일치 범위" 텍스트 박스에서 그림과 일치시키려는 셀 범위를 선택하세요;
• 그런 다음 "추가" 버튼을 클릭하여 가져오려는 그림 파일을 선택하세요;
• 가져오기 크기 드롭다운에서 삽입하려는 그림 크기를 지정하세요 (여기서는 "이미지 크기에 맞추기", "셀 크기에 맞추기" 또는 "이미지 크기 지정" 중 하나를 선택할 수 있습니다.).
• 이미지의 가져오기 순서를 선택하세요;
• 마지막으로 "가져오기" 버튼을 클릭하세요.
  

3. 그리고 나서, 나타나는 "그림 일치 가져오기" 대화 상자에서 관련 이미지를 위치할 셀을 선택하세요 (원래 텍스트의 셀을 선택할 수도 있습니다). 스크린샷 참고:

4. 그리고 확인 버튼을 클릭하면 텍스트와 일치하는 모든 그림이 워크시트에 삽입됩니다. 스크린샷 참고:

Excel에서 VBA 코드 또는 Kutools for Excel 도구를 사용하여 텍스트를 해당 이미지로 바꾸면 작업 효율성과 데이터 시각화를 크게 향상시킬 수 있습니다. VBA 스크립트를 작성하거나 Kutools 플러그인을 사용하든, 두 방법 모두 사용자가 빠르게 텍스트-이미지 변환을 달성하도록 도와 다양한 작업 요구를 충족시킵니다. 적절한 방법을 선택하면 데이터 처리를 더욱 효율적이고 직관적으로 만들 수 있으며, 전체적인 작업 품질을 향상시킬 수 있습니다. 더 많은 Excel 팁과 트릭을 탐색하고 싶다면, 우리 웹사이트는 Excel을 마스터하는 데 도움이 되는 수천 개의 자습서를 제공합니다.