Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe afbeeldingen uit opmerkingen in Excel extraheren?

In Excel kun je zo eenvoudig mogelijk een afbeelding in de opmerking invoegen, maar heb je er wel eens over nagedacht om de afbeeldingen uit commentaardozen in cellen of in een specifieke map te extraheren? In dit artikel zal ik het hebben over het extraheren van de afbeeldingen uit reacties.

Extracten en afbeeldingen opslaan van opmerkingen in een map met de functie Opslaan als

Extracteer afbeeldingen uit opmerkingen in cellen met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Kutools werkt met Office 2007-2019 en 365. Het ondersteunt alle talen en is zeer eenvoudig te installeren of te implementeren. Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbelExtracten en afbeeldingen opslaan van opmerkingen in een map met de functie Opslaan als

Als u de afbeeldingen uit opmerkingen in een map wilt ophalen en opslaan, doet u het volgende:

1. Kopieer het blad met de opmerkingen met afbeeldingen die u in een nieuwe lege werkmap wilt opslaan.

doc extraheren van afbeelding 1

2. En klik vervolgens op filet > Opslaan als om deze nieuwe werkmap op te slaan als webpagina formaat in een specifieke map, zie screenshot:

doc extraheren van afbeelding 2

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

doc extraheren van afbeelding 3


pijl blauwe rechterbelExtracteer afbeeldingen uit opmerkingen in cellen met VBA-code

Als u de afbeeldingen uit opmerkingen in cellen wilt extraheren zoals weergegeven in het screenshot, kunt u hier een VBA-code voor u maken, doe dit als volgt:

doc extraheren van afbeelding 4

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in het modulevenster.

VBA-code: verwijder afbeeldingen uit opmerkingen in cellen:

Sub CommentPictures()
'Updateby Extendoffcie 20161207
    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 F5 sleutel om deze code uit te voeren en alle afbeeldingen van de opmerkingen in het huidige werkblad zijn in de volgende kolomcellen geëxtraheerd, zie screenshot:

doc extraheren van afbeelding 4


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jacob · 1 years ago
    Thank you!! I had previously inserted pictures into comments for a document and then deleted the pictures only to have someone ask me for copies of only the pictures. This was very straightforward and saved me. Thanks again!
    • To post as a guest, your comment is unpublished.
      Brice Barrier · 9 months ago
      Hello,
      Very interesting post. Thanks a lot.

      But I do not see how to use it to use the picture for a button of my CommandBar. Let me explain.

      I want to share my Excel sheets without sending separatly images for buttons as jpg files (.Picture = LoadPicture(ImageFile).

      So I want to hide the images in some hidden cells or in some comments.
      No issue to hide the images.
      But I do not succeed to get them afterward to initialize my buttons.

      Any idea for this ?


      Thanks for your time.
      Brice.