Excel'de metni ilgili resimlerle nasıl değiştirebilirim?
Pratik工作中, genellikle Excel'de belirli bir hücredeki metne göre otomatik olarak ilgili resimleri görüntülemek isteriz—örneğin, ürün adlarına göre ürün görsellerini ya da durumlara göre uygun simgeleri göstermek gibi. Excel’in yerleşik olarak “metinden-resme” özelliği bulunmadığından, bu hedefe ulaşmak için bazı özel teknikler uygulamak gerekir. Bu makalede, iki temel çözüm ve bunların iyileştirme yöntemleri ayrıntılı şekilde açıklanacaktı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 koduyla metni karşılık gelen resimlerle değiştirin
Normalde Excel'de metin dizesine göre ilgili resimleri eklemek için kolay ve doğrudan bir yol yoktur; ancak aşağıdaki VBA kodu, metni karşılık gelen resimle değiştirmenize yardımcı olabilir.
1. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt + F11" tuşlarına basın.
2. Yeni bir modül penceresi açmak için pencerede "Ekle" > "Modül" seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu bu modül penceresine kopyalayıp yapıştırın.
VBA kodu: metni karşılık gelen resimlerle değiştirme
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, açılan iletişim kutusunda karşılık gelen resimleri eklemek istediğiniz Veri Aralığı'nı seçin ve kodu çalıştırmak için F5 tuşuna basın. Ekran görüntüsüne bakın:
4. Ardından 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
VBA kodlarıyla tanışık değilseniz ya da kullanmak istemiyorsanız, Kutools for Excel’i deneyebilirsiniz. Bu güçlü ve verimli araç, metni sadece birkaç tıklamayla karşılık gelen resimlerle kolayca değiştirmenizi sağlar. Kutools sayesinde herhangi bir kod yazmadan, belirli metinleri önceden tanımlanmış resimlerle doğrudan eşleştirebilirsiniz. Ayrıca, resimlerin çalışma sayfanızdaki konumuna uygun şekilde boyutlarını kendi ihtiyaçlarınıza göre ayarlayabilirsiniz.
Kutools for Excel yüklendikten sonra şu adımları izleyin:
1. "KUTOOLS PLUS" > "İçe/Dışa Aktar" > "Resimleri Eşleştir İçe Aktar" seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. "Resimleri Eşleştir İçe Aktar" iletişim kutusunda, seçenekleri aşağıdaki gibi ayarlayın:
- "Eşleştirme Aralığı" metin kutusundan, resimlerle eşleştirmek istediğiniz hücre aralığını tıklayarak seçin;
- Ardından, içeri 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 "Görüntü Boyutu'e uydur", "hücre boyutuna uydur" veya "Görüntü Boyutu belirt" seçeneklerinden ihtiyacınıza göre seçim yapabilirsiniz.);
- Resimleriniz için İçe Aktar Sırası seçin;
- Son olarak, “İçe Aktar” düğmesine tıklayın.
3. Ardından, açılan "Resimleri Eşleştir İçe Aktar" iletişim kutusunda, ilgili resimlerin yerleştirileceği bir hücre seçin (metnin orijinal hücresini de seçebilirsiniz). Ekran görüntüsüne bakın:
4. Ardından Tamamdüğmesine tıklayın; metinle eşleşen tüm resimler çalışma sayfasına eklenmiş olacak. Ekran görüntüsüne bakın:
- Metinle eşleşen resimler yoksa, hücreye hiçbir şey eklenmez.
- Resimleri yatay olarak eklemek istiyorsanız, "İçe Aktar Sırası" bölümündeki "Satır bazlı, ardından sütun bazlı doldur" seçeneğini işaretleyebilirsiniz.
Excel'de metni karşılık gelen resimlerle değiştirmek için VBA kodu veya
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar