Перейти к основному содержанию
 

Как извлечь изображения из комментариев в Excel?

Автор: Сяоян Последнее изменение: 2024 июля 09 г.

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

Извлекайте и сохраняйте изображения из комментариев в папку с функцией «Сохранить как»

Извлечение изображений из комментариев в ячейки с кодом VBA


стрелка синий правый пузырьИзвлекайте и сохраняйте изображения из комментариев в папку с функцией «Сохранить как»

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

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

скопируйте и вставьте ячейки с изображениями комментариев в новую пустую книгу

2, Затем нажмите Файл > Сохранить как чтобы сохранить эту новую книгу как веб-страницы форматировать в определенной папке, см. снимок экрана:

сохранить эту новую книгу в формате веб-страницы

3. Затем нажмите Сохранено кнопку, чтобы сохранить файл, затем перейдите в конкретную папку для просмотра сохраненных изображений, в папке будут созданы два файла, один - это файл HTML, а другой - папка, содержащая все изображения и другие файлы, см. снимок экрана:

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

скриншот kutools для Excel AI

Разблокируйте магию Excel с помощью Kutools AI

  • Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
  • Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
  • VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
  • Интерпретация формулы: Легкое понимание сложных формул.
  • Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

стрелка синий правый пузырьИзвлечение изображений из комментариев в ячейки с кодом VBA

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

извлечь изображение из комментариев в ячейки

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

Код VBA: извлечение изображений из комментариев в ячейки:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 ключ для запуска этого кода, и все изображения комментариев в текущем листе были извлечены в ячейки следующего столбца, см. снимок экрана:

изображения извлекаются из комментариев к ячейкам

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!