Hoe exporteert u grafieken in Excel naar afbeeldingen?
In Excel maakt u soms grafieken op basis van gegevens, zodat die visueler en directer overkomen. Maar hoe slaat of exporteert u deze grafieken naar afbeeldingen voor een specifiek doel?
Exporteer een grafiek naar een afbeelding met VBA-code
Exporteer meerdere grafieken/afbeeldingen/vormen naar afbeeldingen met Kutools voor Excel 
Exporteer een grafiek naar een afbeelding met VBA-code
Met de volgende VBA-code exporteert u een geselecteerde grafiek van het actieve werkblad als afbeelding. De afbeelding wordt opgeslagen op dezelfde locatie als de werkmap waarin u de code uitvoert. Volg deze stappen:
1. Selecteer de grafiek die u wilt exporteren.
2. Houd vervolgens de toetsen ALT + F11 ingedrukt; hierdoor opent het venster Microsoft Visual Basic for Applications.
3. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
VBA: Exporteer grafiek naar 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 daarna op de toets F5 om deze code uit te voeren en geef in het dialoogvenster een naam op voor de geëxporteerde grafiek. Zie onderstaande afbeelding:
5. Klik vervolgens op OK; de geselecteerde grafiek is nu geëxporteerd in GIF-indeling en opgeslagen op dezelfde locatie als het oorspronkelijke bestand. Zie onderstaande afbeelding:
Met de bovenstaande VBA-code kunt u slechts één grafiek tegelijk exporteren. Wilt u andere grafieken exporteren, selecteer dan eerst een andere grafiek en voer daarna de code opnieuw uit.
Exporteer meerdere grafieken/afbeeldingen/vormen naar afbeeldingen met Kutools voor Excel
Met het Kutools voor Excel-hulpprogramma Grafiek exporteren kunt u meerdere grafieken, afbeeldingen of vormen tegelijkertijd exporteren in Excel.
Na installatie van Kutools voor Excel, gaat u als volgt te werk: ()Gratis downloaden Kutools voor Excel nu!)
1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Grafiek exporteren. Zie de afbeelding hieronder:
2. In het dialoogvenster Grafiek exporteren worden alle grafieken, afbeeldingen en vormen weergegeven in het linkerlijstvak. Kies het type dat u wilt exporteren en klik vervolgens op de knop 
om een map op te geven waarin de bestanden worden opgeslagen. Tegelijkertijd kunt u onder Exportformaat de gewenste afbeeldingsindeling selecteren, zoals GIF, JPEG, TIF of PNG.
3. Klik daarna op OK; alle grafieken, afbeeldingen en vormen zijn nu succesvol geëxporteerd naar de opgegeven locatie. Zie de afbeeldingen hieronder:
 |
 |
 |
Demo: Grafiek exporteren
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