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:

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

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: