Metni Excel'deki karşılık gelen resimlerle nasıl değiştirebilirim?
Diyelim ki, bir çalışma sayfasında ürün adlarının bir listesi var ve bilgisayar diskinde ürün adlarının ilgili resimlerini içeren bir klasör var. Şimdi, aşağıdaki ekran görüntülerinde olduğu gibi tek tek eklemeden, ürün adlarını Excel'deki ilgili resimleriyle bulup değiştirmem gerekiyor. Excel'de bu işle başa çıkmak için iyi ve hızlı çözümler var mı?
Metni ilgili resimlerle VBA kodu ile değiştirin
Kutools for Excel ile metni karşılık gelen resimlerle değiştirin
Metni ilgili resimlerle VBA kodu ile değiştirin
Normalde, göreli resimleri Excel'deki metin dizesine göre eklememizin kolay ve doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu, metni karşılık gelen resimle değiştirmenize yardımcı olabilir.
1. Basın Alt + F11 görüntülemek için Uygulamalar için Microsoft Visual Basic pencere.
2. Pencerede tıklayın Ekle > modül yeni bir modül penceresi göstermek için, ardından aşağıdaki VBA kodunu kopyalayıp modül pencere.
VBA kodu: metni karşılık gelen resimlerle değiştirin
Sub InsertPicture()
'Upadateby Extendoffice
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
If Rng.Value <> "" Then
If Dir(xPath & Rng.Value & ".jpg") <> "" Then
ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Rng.Left
.Top = Rng.Top
.Width = Rng.Width
.Height = Rng.Height
End With
Rng.ClearContents
Else
Rng.Value = "N/A"
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve ilgili resimleri açılan iletişim kutusuna eklemek istediğiniz veri aralığını seçin, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, hücreler ile aynı boyuttaki tüm ilgili resimler orijinal metinle değiştirilecektir, ekran görüntülerine bakın:
Notlar:
1. Yukarıdaki kodda, resimlerin klasör yolunu ihtiyacınıza göre değiştirmeniz gerekir, xPath = "C: \ Kullanıcılar \ dt \ Masaüstü \ Meyveler \".
2. Metinle eşleşen ilgili resim yoksa, N / A hatası görüntülenir.
Kutools for Excel ile metni karşılık gelen resimlerle değiştirin
Yukarıdaki kodda ustalaşmak zor olduğundan, burada size kolay ve güçlü bir araç tanıtacağım - Kutools for Excel, Onun ile İçe Aktarılmış Resimleri Eşleştir özelliği, resimleri metin listesiyle eşleşecek şekilde hızlı ve kolay bir şekilde ekleyebilirsiniz.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen şunu yapın:
1. tıklayın Kutools Artı > İthalat ihracat > İçe Aktarılmış Resimleri Eşleştir, ekran görüntüsüne bakın:
2. In İçe Aktarılmış Resimleri Eşleştir iletişim kutusunu tıklayın resimlerle eşleştirmek istediğiniz aralığı seçmek için düğme, ekran görüntüsüne bakın:
3. Sonra da İçe Aktarılmış Resimleri Eşleştir iletişim, tıklayın Ekle > fileto or Dosya eklemek istediğiniz resimleri bulmak için ekran görüntüsüne bakın:
4. İlgili resimleri ekledikten sonra, ardından İçe aktarma boyutu düğmesi, aşağıda Resim Boyutunu İçe Aktar iletişim kutusunda, resminizin boyutu için bir seçenek belirtin. Ekran görüntüsüne bakın:
5. Sonra tıklayın OK > ithalatve ardından ilgili görüntülerinizi açılan listeden bulmak için bir hücre seçin. İçe Aktarılmış Resimleri Eşleştir iletişim kutusu (metnin orijinal hücresini de seçebilirsiniz), ekran görüntüsüne bakın:
6. Ve sonra tıklayın OK düğmesi, metinle eşleşen tüm resimler çalışma sayfasına eklenmiştir, ekran görüntüsüne bakın:
Notlar:
1. Metinle eşleşen resim yoksa, hücre hiçbir şey eklemeyecektir.
2. Resimleri yatay olarak eklemek istiyorsanız, Hücreden sonra hücreyi yatay olarak doldur içinde Siparişi içe aktar Bölüm.
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
Demo: Metni karşılık gelen resimlerle Kutools for Excel ile değiştirin
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!