Note: The other languages of the website are Google-translated. Back to English

Як витягти зображення з коментарів у Excel?

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

Витягувати та зберігати зображення з коментарів у папку з функцією «Зберегти як»

Витягніть зображення з коментарів у комірки з кодом VBA


стрілка синя права міхурВитягувати та зберігати зображення з коментарів у папку з функцією «Зберегти як»

Якщо ви хочете витягти та зберегти зображення з коментарів у папку, виконайте такі дії:

1. Скопіюйте аркуш із коментарями із зображеннями, які потрібно зберегти, до нової порожньої книги.

doc витяг зображення із коментаря 1

2. А потім клацніть філе > Зберегти як щоб зберегти цю нову книгу як веб-сторінки формату в певній папці, див. знімок екрана:

doc витяг зображення із коментаря 2

3. Потім натисніть зберегти кнопку, щоб зберегти файл, потім перейдіть до певної папки, щоб переглянути збережені зображення, два файли генеруються в папці, один - це файл html, а інший - папка, що містить усі зображення та інші файли, див. знімок екрана:

doc витяг зображення із коментаря 3


стрілка синя права міхурВитягніть зображення з коментарів у комірки з кодом VBA

Якщо ви хочете витягти зображення з коментарів у комірки, як показано на наведеному нижче знімку екрана, тут я можу створити для вас код VBA, будь ласка, зробіть так:

doc витяг зображення із коментаря 4

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

Код 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 для запуску цього коду, і всі зображення коментарів на поточному аркуші були витягнуті в наступні комірки стовпців, див. знімок екрана:

doc витяг зображення із коментаря 4


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дякую!! Раніше я вставляв зображення в коментарі до документа, а потім видаляв зображення лише для того, щоб хтось запитав у мене копії лише зображень. Це було дуже просто і врятувало мене. Знову дякую!
Цей коментар був мінімізований модератором на сайті
Здравствуйте,
Дуже цікавий пост. Дуже дякую.

Але я не розумію, як використовувати його, щоб використовувати зображення для кнопки моєї командної панелі. Дозволь пояснити.

Я хочу поділитися своїми аркушами Excel, не надсилаючи окремо зображення для кнопок як файли jpg (.Picture = LoadPicture(ImageFile).

Тому я хочу приховати зображення в деяких прихованих клітинках або в деяких коментарях.
Немає проблем, щоб приховати зображення.
Але мені не вдається потім отримати їх, щоб ініціалізувати мої кнопки.

Будь-яка ідея для цього?


Спасибо за ваш час.
Брайс.
Цей коментар був мінімізований модератором на сайті
Привіт! Muchisimas gracias por el aporte. Tengo un problem, a veces funciona ya veces no extrae las fotos .Por que puede ser si es la misma macro?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL