Hvordan eksporteres diagrammer til grafik i Excel?

I Excel kan du nogle gange generere nogle diagrammer ud fra dataene, så dataene ser mere visuelle og direkte ud. Hvis du vil gemme eller eksportere diagrammerne til grafik til et eller andet formål, hvordan kan du gøre det?

Eksporter et diagram til grafik med VBA-kode

Eksporter flere diagrammer/billeder/figurer til grafik med Kutools for Excel

Eksporter et diagram til grafik med VBA-kode

Følgende VBA-kode kan hjælpe dig med at eksportere et valgt diagram fra det aktive regneark som et billede. Og billedet gemmes på samme sted som den projektmappe, du anvendte. Gør som følger:

1. Vælg det diagram, du vil eksportere.

2. Hold derefter nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA: Eksporter diagram til grafik

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. Tryk derefter på F5 nøgle til at køre denne kode, og indtast navnet på det eksporterede diagram i promptfeltet, se skærmbillede:

5. Og klik derefter på OK, er det valgte diagram eksporteret til Gif format og gemmes på samme sted som den originale fil. Se skærmbillede:

Med ovenstående VBA-kode kan du kun eksportere et diagram ad gangen. Hvis du vil eksportere andre diagrammer, skal du først vælge et andet diagram og derefter eksportere det med koden.

Eksporter flere diagrammer/billeder/figurer til grafik med Kutools for Excel

Kutools for Excel's Eksporter grafik værktøj kan eksportere flere diagrammer, billeder eller figurer på én gang i Excel.

Efter installation Kutools for Excel, gør venligst som følger: (Gratis download Kutools for Excel Nu!)

1. Klik Kutools Plus > Import Eksport > Eksporter grafik, se skærmbillede:

2. I Eksporter grafik dialogboksen, alle diagrammer, billeder og former er angivet i venstre liste, angiv den type, du vil eksportere, og klik derefter på  knap for at angive en mappe til at gemme den eksporterede grafik, på samme tid kan du vælge formatet på billederne fra eksportformatet, som du har brug for, såsom GIF, JPEG, TIF or PNG.

3. Klik derefter på OK, alle diagrammer, billeder og figurer er blevet eksporteret til den angivne placering med succes. Se skærmbilleder:

  Demo: Eksporter grafik