Hoe grafieken naar afbeeldingen exporteren in Excel?
In Excel genereert u soms grafieken vanuit gegevens, zodat de gegevens visueel en directer overkomen. Als u de grafieken om een bepaalde reden wilt opslaan of exporteren als afbeeldingen, hoe doet u dat dan?
Een grafiek exporteren als afbeelding met VBA-code
Meerdere grafieken/afbeeldingen/vormen exporteren als afbeeldingen met Kutools voor Excel 
Een grafiek exporteren als afbeelding met VBA-code
De volgende VBA-code kan u helpen om een geselecteerde grafiek uit het actieve werkblad te exporteren als een afbeelding. De afbeelding wordt opgeslagen in dezelfde locatie als het werkboek waarop u de code hebt toegepast. Volg de onderstaande stappen:
1. Selecteer de grafiek die u wilt exporteren.
2. Druk vervolgens tegelijkertijd op ALT + F11, waardoor het Microsoft Visual Basic for Applications-venster wordt geopend.
3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA: Grafiek exporteren als afbeelding
Option Explicit
Sub ExportChart()
Const sSlash$ = "/"
Const sPicType$ = ".gif"
Dim sChartName$
Dim sPath$
Dim sBook$
Dim objChart As ChartObject
On Error Resume Next
Set objChart = ActiveSheet.ChartObjects(1)
If objChart Is Nothing Then
MsgBox "No charts have been detected on this sheet", 0
Exit Sub
End If
If ActiveChart Is Nothing Then
MsgBox "You must select a single chart for exporting ", 0
Exit Sub
End If
Start:
sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _
"There is no default name available" & vbCr & _
"The chart will be saved in the same folder as this file", "Chart Export", "")
If sChartName = Empty Then
MsgBox "You have not entered a name for this chart", , "Invalid Entry"
Goto Start
End If
If sChartName = "False" Then
Exit Sub
End If
sBook = ActiveWorkbook.Path
sPath = sBook & sSlash & sChartName & sPicType
ActiveChart.Export Filename:=sPath, FilterName:="GIF"
End Sub4. Druk vervolgens op de F5-toets om deze code uit te voeren, en voer de naam in voor de geëxporteerde grafiek in het pop-upvenster, zie onderstaande schermafbeelding:
5. Klik vervolgens op OK, de geselecteerde grafiek is geëxporteerd in GIF-formaat en opgeslagen in dezelfde locatie als het originele bestand. Zie onderstaande schermafbeelding:
Met bovenstaande VBA-code kunt u slechts één grafiek tegelijk exporteren. Als u andere grafieken wilt exporteren, selecteert u eerst een andere grafiek en voert u deze vervolgens uit met de code.
Meerdere grafieken/afbeeldingen/vormen exporteren als afbeeldingen met Kutools voor Excel
Het hulpprogramma Export Graphics van Kutools voor Excel kan meerdere grafieken, afbeeldingen of vormen tegelijk exporteren in Excel.
Nadat u Kutools voor Excel heeft geïnstalleerd, volgt u onderstaande stappen: (Download nu gratis Kutools voor Excel! )
1. Klik op Kutools Plus > Importeren / Exporteren > Export Graphics, zie onderstaande schermafbeelding:
2. In de Export Graphics dialoogvenster, alle grafieken, afbeeldingen en vormen zijn weergegeven in de linker lijstbox. Specificeer het type dat u wilt exporteren en klik vervolgens op de
knop om een map op te geven om de geëxporteerde afbeeldingen op te slaan. Tegelijkertijd kunt u het formaat van de afbeeldingen kiezen uit de opties in Exportformaat, zoals GIF, JPEG, TIF of PNG.
3. Klik vervolgens op OK, alle grafieken, afbeeldingen en vormen zijn succesvol geëxporteerd naar de gespecificeerde locatie. Zie onderstaande schermafbeeldingen:
 |
 |
 |
Demo: Export Graphics
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen 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.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen