Як витягти зображення з коментарів у 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 для запуску цього коду, і всі зображення коментарів на поточному аркуші були витягнуті в наступні комірки стовпців, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!