Hoe haalt u afbeeldingen uit opmerkingen in Excel?
In Excel kunt u Afbeelding invoegen in de opmerking net zo gemakkelijk als u wilt, maar hebt u ooit overwogen om de afbeeldingen uit opmerkingenvakken naar cellen of naar een specifieke map te halen? In dit artikel bespreek ik hoe u afbeeldingen uit 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 opmerkingen wilt extraheren en opslaan in een map, volgt u deze stappen:
1. Kopieer het werkblad met de opmerkingen en afbeeldingen die u wilt bewaren naar een nieuwe, lege werkmap.
2. Klik vervolgens op Bestand > Opslaan als om dit nieuwe werkblad op te slaan als Webpagina-indeling in een specifieke map, zie screenshot:
3. Klik daarna op de knop Opslaan om het bestand op te slaan. Ga vervolgens naar de specifieke map om de opgeslagen afbeeldingen te bekijken. In die map worden twee bestanden gegenereerd: één HTML-bestand en een map met alle afbeeldingen en andere bestanden. Zie de screenshot:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Afbeeldingen uit opmerkingen extraheren naar cellen met VBA-code
Als u de afbeeldingen uit opmerkingen naar cellen wilt extraheren, zoals in de onderstaande screenshot wordt weergegeven, kan ik daarvoor een VBA-code voor u maken. Volg hiervoor 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 daarna op de toets F5 om deze code uit te voeren. Alle afbeeldingen uit de opmerkingen in het huidige werkblad zijn nu geëxtraheerd naar de cellen in de volgende kolom. Zie screenshot:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins