Hur extraherar jag bilder från kommentarer i Excel?
I Excel kan du infoga en bild i kommentaren så enkelt du kan, men har du någonsin funderat på att extrahera bilderna från kommentarsrutor till celler eller till en specifik mapp? Den här artikeln kommer jag att prata om hur man extraherar bilderna från kommentarer.
Extrahera och spara bilder från kommentarer till en mapp med funktionen Spara som
Extrahera bilder från kommentarer till celler med VBA-kod
Extrahera och spara bilder från kommentarer till en mapp med funktionen Spara som
Om du vill extrahera och spara bilderna från kommentarer i en mapp, gör så här:
1. Kopiera arket som innehåller kommentarer med bilder som du vill spara till en ny tom arbetsbok.
2. Och klicka sedan på Fil > Spara som för att spara den här nya arbetsboken som webbsida format i en specifik mapp, se skärmdump:
3. Klicka sedan Save knappen för att spara filen, gå sedan till den specifika mappen för att se de sparade bilderna, två filer genereras i mappen, en är html-filen och en annan är en mapp som innehåller alla bilder och andra filer, se skärmdump:
Extrahera bilder från kommentarer till celler med VBA-kod
Om du vill extrahera bilderna från kommentarer till celler som följande skärmdump visas, här kan jag skapa en VBA-kod åt dig, vänligen gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA-kod: Extrahera bilder från kommentarer till celler:
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. Tryck sedan på F5 för att köra den här koden, och alla bilder av kommentarerna i det aktuella kalkylbladet har extraherats till nästa kolumnceller, se skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
