Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menggantikan teks dengan gambar yang sepadan dalam Excel?

doc menggantikan teks dengan imej 1  2 doc menggantikan teks dengan imej 2

Katakanlah, saya mempunyai senarai nama produk dalam lembaran kerja, dan ada folder yang mengandungi gambar-gambar nama produk yang sepadan dalam cakera komputer. Sekarang, saya perlu mencari dan menggantikan nama produk dengan imej relatif mereka di Excel tanpa memasukkannya satu persatu seperti screenshot yang ditunjukkan. Mana ada penyelesaian yang baik dan pantas untuk menangani tugas ini dalam Excel?

Gantikan teks dengan gambar yang sepadan dengan kod VBA

Gantikan teks dengan gambar yang sesuai dengan Kutools untuk Excel


Masukkan gambar berdasarkan nilai sel dalam lajur:

dengan Kutools untuk Excel'S Padankan Gambar Impor utiliti, anda boleh memasukkan imej yang sepadan berdasarkan nilai sel dengan cepat dan mudah.

doc menggantikan teks dengan imej 12

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Gantikan teks dengan gambar yang sepadan dengan kod VBA


Biasanya, tidak ada cara mudah dan langsung bagi kami untuk memasukkan gambar relatif berdasarkan rentetan teks dalam Excel, tetapi, kod VBA berikut boleh membantu anda menggantikan teks dengan gambar yang sepadan.

1. Press Alt + F11 untuk memaparkan Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di tetingkap, klik Memasukkan > Modul untuk menunjukkan tetingkap modul baru, kemudian salin dan tampal kod VBA berikut ke dalam modul tingkap.

Kod VBA: menggantikan teks dengan gambar yang sepadan

Sub InsertPicture()
'Upadateby20150423
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. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan pilih julat data yang anda mahu masukkan gambar yang sepadan dalam dialog yang muncul, lihat tangkapan skrin:

doc menggantikan teks dengan imej 3

4. Kemudian klik OK butang, semua imej yang sepadan dengan saiz yang sama dengan sel akan digantikan dengan teks asal, lihat tangkapan skrin:

doc menggantikan teks dengan imej 4  2 doc menggantikan teks dengan imej 5

Nota:

1. Dalam kod di atas, anda perlu menukar laluan folder bagi gambar dengan keperluan anda, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".

2. Sekiranya tiada gambar yang sepadan untuk sepadan dengan teks, ralat N / A akan dipaparkan.


Gantikan teks dengan gambar yang sesuai dengan Kutools untuk Excel

Oleh kerana kod di atas sukar untuk menguasai, di sini, saya akan memperkenalkan kepada anda alat yang mudah dan berkuasa - Kutools untuk Excel, dengan ciri Padanan Gambar Impor, anda boleh dengan cepat dan mudah memasukkan gambar untuk dipadankan dengan senarai teks.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

Selepas memasang Kutools untuk Excel, sila lakukan seperti ini:

1. Klik Enterprise > Import / Eksport > Padankan Gambar Impor, lihat tangkapan skrin:

doc menggantikan teks dengan imej 6 6

2. Di dalam Padankan Gambar Impor kotak dialog, klik doc menggantikan butang teks 1 butang untuk memilih julat yang anda mahu padan dengan gambar, lihat tangkapan skrin:

doc menggantikan teks dengan imej 7 7

3. Kemudian di Padankan Gambar Impor dialog, klik Tambah > File or Folder untuk mencari gambar yang anda mahu masukkan, lihat tangkapan skrin:

doc menggantikan teks dengan imej 8 8

4. Selepas memasukkan imej yang sepadan, kemudian klik Saiz import butang, dalam perkara berikut Import Saiz Imej dialog, nyatakan satu pilihan untuk saiz gambar anda. Lihat tangkapan skrin:

doc menggantikan teks dengan imej 9 9

5. Kemudian klik OK > Mengimport, dan kemudian pilih satu sel untuk mencari imej relatif anda dari muncung keluar Padankan Gambar Impor dialog (anda juga boleh memilih sel asal teks), lihat tangkapan skrin:

doc menggantikan teks dengan imej 10 10

6. Kemudian klik OK butang, semua gambar yang sepadan dengan teks telah dimasukkan ke dalam lembaran kerja, lihat tangkapan skrin:

doc menggantikan teks dengan imej 11 11

Nota:

1. Sekiranya tiada gambar yang sepadan dengan teks, sel tidak akan memasukkan apa-apa.

2. Jika anda mahu memasukkan gambar secara mendatar, anda boleh menyemak Isi sel mendatar selepas sel dalam Pesanan import bawah seksyen ini.

Muat turun dan percubaan percuma Kutools untuk Excel Sekarang!


Demo: Gantikan teks dengan gambar yang sesuai dengan Kutools untuk Excel

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.