Как в Excel заменить текст соответствующими картинками?
 |
 |
 |
Скажем, у меня есть список названий продуктов на листе, и есть папка, содержащая соответствующие изображения названий продуктов на диске компьютера. Теперь мне нужно найти и заменить названия продуктов их относительными изображениями в Excel, не вставляя их один за другим, как показано на следующих снимках экрана. Есть ли какие-нибудь хорошие и быстрые решения для этой работы в Excel?
Замените текст соответствующими изображениями с кодом VBA
Заменить текст соответствующими изображениями с помощью Kutools for Excel
Замените текст соответствующими изображениями с кодом VBA
Обычно у нас нет простого и прямого способа вставить относительные изображения на основе текстовой строки в Excel, но следующий код VBA может помочь вам заменить текст соответствующим изображением.
1. Нажмите Alt + F11 для отображения Microsoft Visual Basic для приложений окно.
2. В окне нажмите Вставить > Модули чтобы отобразить новое окно модуля, затем скопируйте и вставьте следующий код VBA в модуль окно.
Код VBA: заменить текст соответствующими изображениями
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, Затем нажмите F5 ключ для запуска этого кода и выберите диапазон данных, в который вы хотите вставить соответствующие изображения в появившемся диалоговом окне, см. снимок экрана:
4, Затем нажмите OK все соответствующие изображения с размером, равным ячейкам, будут заменены исходным текстом, см. скриншоты:
 |
|
 |
Ноты:
1. В приведенном выше коде вам нужно изменить путь к папке с изображениями в соответствии с вашими потребностями, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".
2. Если нет соответствующих изображений, соответствующих тексту, отобразится сообщение об ошибке N / A.
Заменить текст соответствующими изображениями с помощью Kutools for Excel
Поскольку приведенный выше код сложен для освоения, здесь я представлю вам простой и мощный инструмент - Kutools for Excel, С его Сопоставить Импорт изображений Функция, вы можете быстро и удобно вставлять картинки в соответствии со списком текста.
| Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Нажмите Кутулс Плюс > Импорт Экспорт > Сопоставить Импорт изображений, см. снимок экрана:
2. В Сопоставить Импорт изображений диалоговое окно, нажмите 
кнопку, чтобы выбрать диапазон, который вы хотите сопоставить с изображениями, см. снимок экрана:
3. Тогда в Сопоставить Импорт изображений диалоговое окно, нажмите Добавить > Файл or Папка чтобы найти изображения, которые вы хотите вставить, см. снимок экрана:
4. После вставки соответствующих изображений нажмите Размер импорта кнопку, в следующем Размер импортированного изображения В диалоговом окне укажите один вариант для размера вашего изображения. Смотрите скриншот:
5. Затем нажмите OK > Импортировать, а затем выберите одну ячейку, чтобы найти относительные изображения из всплывающих Сопоставить Импорт изображений диалог (вы также можете выбрать исходную ячейку текста), см. снимок экрана:
6, Затем нажмите OK кнопку, все изображения, которые соответствуют тексту, были вставлены в рабочий лист, см. снимок экрана:
Ноты:
1. Если совпадающих картинок с текстом нет, ячейка ничего не вставит.
2. Если вы хотите вставить изображения по горизонтали, вы можете проверить Заполнить горизонтально ячейку за ячейкой в Заказ на импорт .
Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!
Демо: замените текст соответствующими изображениями с помощью Kutools for Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
