Hoe grafieken naar afbeeldingen in Excel te exporteren?
In Excel kunt u soms enkele grafieken van de gegevens genereren, zodat de gegevens er visueler en directer uitzien. Als u de grafieken voor een bepaald doel wilt opslaan of exporteren naar afbeeldingen, hoe zou u dat dan kunnen doen?
Exporteer een grafiek naar afbeelding met VBA-code
Exporteer meerdere grafieken / afbeeldingen / vormen naar afbeeldingen met Kutools voor Excel
Exporteer een grafiek naar afbeelding met VBA-code
De volgende VBA-code kan u helpen om een geselecteerde grafiek uit het actieve werkblad als een afbeelding te exporteren. En de afbeelding wordt opgeslagen op dezelfde locatie als de werkmap die u hebt toegepast. Doe als volgt:
1. Selecteer het diagram dat u wilt exporteren.
2. Houd vervolgens de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA: grafiek exporteren 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 Sub
4. Druk vervolgens op F5 toets om deze code uit te voeren, en voer de naam in voor de geëxporteerde grafiek in het promptvenster, zie screenshot:
5. En klik vervolgens op OK, is het geselecteerde diagram geëxporteerd naar gif formaat en opgeslagen op dezelfde locatie als het originele bestand. Zie screenshot:
Met de bovenstaande VBA-code kunt u slechts één diagram per keer exporteren.Als u andere diagrammen wilt exporteren, selecteert u eerst een ander diagram en exporteert u het vervolgens met de code.
Exporteer meerdere grafieken / afbeeldingen / vormen naar afbeeldingen met Kutools voor Excel
Kutools for Excel's Exporteer afbeeldingen hulpprogramma kan meerdere grafieken, afbeeldingen of vormen tegelijk exporteren in Excel.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt :(Gratis download Kutools voor Excel nu!)
1. Klikken Koetools Plus > Import / Export > Exporteer afbeeldingen, zie screenshot:
2. In de Exporteer afbeeldingen dialoogvenster, alle grafieken, afbeeldingen en vormen zijn vermeld in de linker keuzelijst, geef het type op dat u wilt exporteren en klik op knop om een map op te geven om de geëxporteerde afbeeldingen op te slaan, tegelijkertijd kunt u het formaat van de afbeeldingen uit het exportformaat kiezen zoals u nodig hebt, zoals GIF, JPEG, TIF or PNG.
3. Dan klikken OKzijn alle grafieken, afbeeldingen en vormen met succes naar de opgegeven locatie geëxporteerd. Zie screenshots:
; |
klik op Exporteer afbeeldingen voor meer informatie over deze functie.
Exporteer afbeeldingen
Bereik exporteren naar bestand |
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!