Як витягти зображення з коментарів у Excel?
В Excel ви можете вставити зображення до коментаря якомога легше, але чи замислювались ви коли-небудь про те, щоб витягти зображення із вікон коментарів у комірки або в певну папку? У цій статті я розповім про те, як витягти зображення з коментарів.
Витягувати та зберігати зображення з коментарів у папку з функцією «Зберегти як»
Витягніть зображення з коментарів у комірки з кодом VBA
Витягувати та зберігати зображення з коментарів у папку з функцією «Зберегти як»
Якщо ви хочете витягти та зберегти зображення з коментарів у папку, виконайте такі дії:
1. Скопіюйте аркуш із коментарями із зображеннями, які потрібно зберегти, до нової порожньої книги.
2. А потім клацніть філе > Зберегти як щоб зберегти цю нову книгу як веб-сторінки формату в певній папці, див. знімок екрана:
3. Потім натисніть зберегти кнопку, щоб зберегти файл, потім перейдіть до певної папки, щоб переглянути збережені зображення, два файли генеруються в папці, один - це файл html, а інший - папка, що містить усі зображення та інші файли, див. знімок екрана:
Витягніть зображення з коментарів у комірки з кодом VBA
Якщо ви хочете витягти зображення з коментарів у комірки, як показано на наведеному нижче знімку екрана, тут я можу створити для вас код VBA, будь ласка, зробіть так:
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 для запуску цього коду, і всі зображення коментарів на поточному аркуші були витягнуті в наступні комірки стовпців, див. знімок екрана:
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
