Gå til hovedindhold

Hvordan eksporteres diagrammer til grafik i Excel?

Forfatter: Xiaoyang Sidst ændret: 2024-10-22

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 god idé3


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:

vba-kode for at indtaste navnet på det eksporterede diagram

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:

det valgte diagram eksporteres til Gif-format

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.

Kutools for Excel tilbyder over 300 avancerede funktioner til at strømline komplekse opgaver, hvilket øger kreativiteten og effektiviteten. Itegarate med AI-funktioner, Kutools automatiserer opgaver med præcision, hvilket gør datahåndtering ubesværet. Detaljeret information om Kutools for Excel...         Gratis prøveversion...

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:

klik på Eksporter grafikfunktion i kutools

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å Gennemse-knap 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.

angiv indstillingerne i dialogboksen

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

en promptboks popper frem for at minde om, hvor mange billeder og figurer der eksporteres
pil ned
billeder og figurer er blevet eksporteret til den angivne placering

  Demo: Eksporter grafik

 

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI-hjælper: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  påberåbe Kutools Funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere
Brug Kutools på dit foretrukne sprog – understøtter engelsk, spansk, tysk, fransk, kinesisk og over 40 andre!

Boost dine Excel-færdigheder med Kutools for Excelog oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner, der øger produktiviteten og sparer tid.  Klik her for at få den funktion, du har mest brug for...


Office Tab Bringer fanebladsbaseret brugerflade til Office og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!