Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как заменить текст соответствующими изображениями в Excel?

doc заменить текст на изображение 1  2 doc заменить текст на изображение 2

Предположим, у меня есть список имен продуктов на листе, и есть папка, содержащая соответствующие изображения имен продуктов на диске компьютера. Теперь мне нужно найти и заменить названия продуктов своими относительными изображениями в Excel, не вставляя их один за другим, как показано ниже. Есть ли какие-нибудь хорошие и быстрые решения для решения этой задачи в Excel?

Заменить текст соответствующими изображениями с кодом VBA

Заменить текст соответствующими изображениями с помощью Kutools for Excel


Вставлять изображения на основе значений ячеек в столбце:

Kutools for ExcelАвтора Сравнение импорта изображений утилиту вы можете быстро и легко вставлять соответствующие изображения на основе значений ячеек.

doc заменить текст на изображение 12

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Заменить текст соответствующими изображениями с кодом VBA


Обычно нет простого и прямого способа вставить относительные изображения на основе текстовой строки в Excel, но следующий код VBA может помочь вам заменить текст соответствующим изображением.

1. Press Alt + F11 для отображения Microsoft Visual Basic для приложений окна.

2, В окне нажмите Вставить > модуль чтобы показать новое окно модуля, затем скопируйте и вставьте следующий код VBA в модуль окна.

Код VBA: заменить текст соответствующими изображениями

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, Затем нажмите F5 для запуска этого кода и выберите диапазон данных, в который вы хотите вставить соответствующие снимки в появившемся диалоговом окне, см. снимок экрана:

doc заменить текст на изображение 3

4, Затем нажмите OK , все соответствующие изображения с размером, как и ячейки, будут заменены исходным текстом, см. скриншоты:

doc заменить текст на изображение 4  2 doc заменить текст на изображение 5

Заметки:

1. В приведенном выше коде вам необходимо изменить путь к папке изображений в соответствии с вашими потребностями, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".

2. Если в соответствии с текстом нет соответствующих изображений, отобразится ошибка N / A.


Заменить текст соответствующими изображениями с помощью Kutools for Excel

Поскольку приведенный выше код трудно осваивать, здесь я представлю вам простой и мощный инструмент - Kutools for Excel с функцией Match Import Pictures, вы можете быстро и удобно вставлять изображения в соответствии со списком текста.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

После установки Kutools for Excel, сделайте следующее:

1. Щелчок Предприятие > Импорт / Экспорт > Сравнение импорта изображений, см. снимок экрана:

doc заменить текст на изображение 6 6

2. В Сравнение импорта изображений диалоговое окно, нажмите doc заменить текстовую кнопку 1 чтобы выбрать диапазон, который вы хотите сопоставить с изображениями, см. снимок экрана:

doc заменить текст на изображение 7 7

3, Затем в Сравнение импорта изображений диалоговое окно, нажмите Добавить > филе or Папка чтобы найти снимки, которые вы хотите вставить, см. снимок экрана:

doc заменить текст на изображение 8 8

4, Вставив соответствующие изображения, нажмите Размер импорта , в следующем Импорт размера изображения диалоговом окне, укажите один параметр для размера вашего изображения. Смотрите скриншот:

doc заменить текст на изображение 9 9

5, Затем нажмите OK > Импортировать, а затем выберите одну ячейку, чтобы найти ваши относительные изображения из выскоченного Сравнение импорта изображений (вы также можете выбрать исходную ячейку текста), см. снимок экрана:

doc заменить текст на изображение 10 10

6, Затем нажмите OK , все изображения, которые соответствуют тексту, были вставлены в рабочий лист, см. снимок экрана:

doc заменить текст на изображение 11 11

Заметки:

1. Если в тексте нет совпадающих изображений, ячейка не будет вставлять ничего.

2. Если вы хотите вставлять изображения по горизонтали, вы можете проверить Заполните горизонтальную ячейку после ячейки , который относится к Порядок импорта раздел.

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


Демонстрация: замените текст соответствующими изображениями с помощью Kutools for Excel

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
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.