Как да извлечете изображения от коментари в Excel?
В Excel можете да вмъкнете изображение в коментара толкова лесно, колкото можете, но обмисляли ли сте някога да извлечете изображенията от полетата за коментари в клетки или в конкретна папка? В тази статия ще говоря за това как да извличате изображения от коментари.
Извличайте и запазвайте изображения от коментари в папка с функцията Запиши като
Извличайте изображения от коментари в клетки с VBA код
Извличайте и запазвайте изображения от коментари в папка с функцията Запиши като
Ако искате да извлечете и запазите изображенията от коментари в папка, моля, направете следното:
1. Копирайте листа, който съдържа коментарите с изображения, които искате да запазите, в нова празна работна книга.
2, И после щракнете върху досие > Save As за да запазите тази нова работна книга като Уеб страница форматирайте в конкретна папка, вижте екранната снимка:
3, След това кликнете Save бутон, за да запазите файла, след това отидете в конкретната папка, за да видите запазените изображения, в папката се генерират два файла, единият е html файлът, а другият е папка, която съдържа всички изображения и други файлове, вижте екранната снимка:
Извличайте изображения от коментари в клетки с 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 ключ за изпълнение на този код и всички изображения на коментарите в текущия работен лист са извлечени в клетките на следващите колони, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!