Hoe afbeeldingen uit opmerkingen in Excel te extraheren?

In Excel kunt u eenvoudig een afbeelding in een opmerking invoegen, maar heeft u ooit overwogen om de afbeeldingen uit de opmerkingsvakken te extraheren naar cellen of naar een specifieke map? In dit artikel zal ik bespreken hoe u de afbeeldingen uit de opmerkingen kunt extraheren.

Afbeeldingen uit opmerkingen extraheren en opslaan in een map met de functie Opslaan als

Afbeeldingen uit opmerkingen extraheren naar cellen met VBA-code

Afbeeldingen uit opmerkingen extraheren en opslaan in een map met de functie Opslaan als

Als u de afbeeldingen uit de opmerkingen wilt extraheren en opslaan in een map, volg dan de volgende stappen:

1. Kopieer het werkblad dat de opmerkingen met afbeeldingen bevat die u wilt opslaan naar een nieuw leeg werkboek.

2. Klik vervolgens op Bestand > Opslaan als om dit nieuwe werkboek op te slaan in Webpagina-formaat in een specifieke map, zie screenshot:

3. Klik vervolgens op de knop Opslaan om het bestand op te slaan, ga vervolgens naar de specifieke map om de opgeslagen afbeeldingen te bekijken. Er worden twee bestanden gegenereerd in de map, één is het html-bestand en de andere is een map die alle afbeeldingen en andere bestanden bevat, zie screenshot:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Afbeeldingen uit opmerkingen extraheren naar cellen met VBA-code

Als u de afbeeldingen uit de opmerkingen wilt extraheren naar cellen zoals weergegeven in de onderstaande schermafbeelding, kan ik een VBA-code voor u maken. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.

VBA-code: Afbeeldingen uit opmerkingen extraheren naar cellen:

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. Druk vervolgens op de toets F5 om deze code uit te voeren, en alle afbeeldingen van de opmerkingen in het huidige werkblad zijn geëxtraheerd naar de cellen in de volgende kolom, zie screenshot: