Excel'de metni karşılık gelen resimlerle nasıl değiştirebilirim?

Pratik işlerde, genellikle belirli bir hücredeki metne dayalı olarak Excel'de otomatik olarak ilgili görüntüleri göstermek isteriz (örneğin, ürün adlarına göre ürün resimlerini göstermek veya durumlara göre ilgili simgeleri göstermek). Excel'in kendisi yerleşik bir "metin-görüntü" özelliği olmadığından, bu hedefe ulaşmak için bazı teknikler kullanılmalıdır. Aşağıda, bu makale iki ana çözümü ve bunların optimizasyon yöntemlerini ayrıntılı olarak anlatacaktır.

VBA kodu kullanarak metni karşılık gelen resimlerle değiştirin

Kutools for Excel ile metni karşılık gelen resimlerle değiştirin

VBA kodu ile metni karşılık gelen resimlerle değiştirin

Normalde, Excel'de metin dizisine göre ilgili resimleri eklemek için kolay ve doğrudan bir yol yoktur, ancak aşağıdaki VBA kodu size metni karşılık gelen resimle değiştirmenize yardımcı olabilir.

1. "Alt + F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.

2. Pencerede, "Ekle" > "Modül" seçeneğine tıklayarak yeni bir modül penceresi açın, ardından aşağıdaki VBA kodunu modül penceresine kopyalayıp yapıştırın.

VBA kodu: metni karşılık gelen resimlerle değiştirin

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve açılan diyalog kutusunda karşılık gelen resimleri eklemek istediğiniz veri aralığını seçin, ekran görüntüsüne bakın:

4. Ve sonra Tamam düğmesine tıklayın, tüm karşılık gelen resimler orijinal metin yerine geçecektir, ekran görüntüsüne bakın:

Kutools for Excel ile metni karşılık gelen resimlerle değiştirin

Eğer VBA koduyla ilgili değilseniz veya kullanmak istemiyorsanız, Kutools for Excel'i deneyebilirsiniz. Bu araç, metni birkaç tıklamayla karşılık gelen resimlerle değiştirmenizi sağlayan güçlü ve etkili bir çözüm sunar. Kutools ile, özel metinleri ön tanımlı resimlerle doğrudan eşleştirebilir, herhangi bir kod yazmanıza gerek kalmaz. Ayrıca, resimlerin boyutlarını ihtiyaçlarınıza göre ayarlayabilir, Excel sayfanızdaki yerleşimi esnek bir şekilde kontrol edebilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:

1. "Kutools Plus" > "İçe Aktar & Dışa Aktar" > "Resimleri Eşleştir" seçeneğine tıklayın, ekran görüntüsüne bakın:

2. "Resimleri Eşleştir" diyalog kutusunda, lütfen şu ayarları yapın:

• "Eşleştirme Aralığı" metin kutusundan, resimlerle eşleştirmek istediğiniz hücre aralığını seçmek için tıklayın;
• Ardından, içe aktarmak istediğiniz resim dosyalarını seçmek için "Ekle" düğmesine tıklayın;
• İçe Aktar Boyutu açılır menüsünden eklemek istediğiniz resim boyutunu belirtin (Burada, "resim boyutunu eşleştir", "hücre boyutunu eşleştir" veya "belirli bir resim boyutu" seçeneklerinden birini seçebilirsiniz.);
• Resimleriniz için içe aktarma sırasını seçin;
• Son olarak, "İçe Aktar" düğmesine tıklayın.
  

3. Ardından, açılan "Resimleri Eşleştir" diyalog kutusundan ilgili resimlerinizi yerleştirmek için bir hücre seçin (metnin orijinal hücresini de seçebilirsiniz), ekran görüntüsüne bakın:

4. Ve sonra Tamam düğmesine tıklayın, metinle eşleşen tüm resimler çalışma sayfasına eklenecektir, ekran görüntüsüne bakın:

Excel'de, metni karşılık gelen resimlerle değiştirmek için VBA kodu veya Kutools for Excel aracı kullanmak, iş verimliliğini ve veri görselleştirmeyi önemli ölçüde artırabilir. VBA betikleri yazmak veya Kutools eklentisini kullanmak yoluyla, her iki yöntem de kullanıcıların hızlı bir şekilde metin-resim dönüşümünü gerçekleştirmesine yardımcı olur ve farklı iş ihtiyaçlarını karşılar. Doğru yöntemi seçmek, veri işleme sürecini daha verimli ve sezgisel hale getirebilir, böylece genel iş kalitesini artırabilir. Eğer daha fazla Excel ipucu ve hilesini keşfetmeye ilgi duyuyorsanız, web sitemiz binlerce öğretici sunarak Excel'i ustalıkla kullanmanıza yardımcı olur.