Come esportare grafici in grafici in Excel?
In Excel, a volte, puoi generare alcuni grafici dai dati, in modo che i dati appaiano più visivi e diretti. Se vuoi salvare o esportare i grafici in grafici per qualche scopo, come potresti fare?
Esporta un grafico in un grafico con codice VBA
Esporta più grafici/immagini/forme in grafica con Kutools per Excel
Esporta un grafico in un grafico con codice VBA
Il seguente codice VBA può aiutarti a esportare un grafico selezionato dal foglio di lavoro attivo come immagine. E l'immagine verrà salvata nella stessa posizione della cartella di lavoro che hai applicato. Procedi come segue:
1. Seleziona il grafico che desideri esportare.
2. Quindi tenere premuto il pulsante ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.
3. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
VBA: esporta il grafico in un grafico
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. Quindi premere il tasto F5 chiave per eseguire questo codice e immettere il nome per il grafico esportato nella finestra di messaggio, vedere screenshot:
5. E poi clicca OK, il grafico selezionato è stato esportato in gif formato e salvato nella stessa posizione del file originale. Vedi screenshot:
Con il codice VBA sopra, puoi esportare solo un grafico alla volta, se desideri esportare altri grafici, seleziona prima un altro grafico, quindi esportalo con il codice.
Esporta più grafici/immagini/forme in grafica con Kutools per Excel
Kutools for Excel'S Esporta grafica l'utility può esportare più grafici, immagini o forme contemporaneamente in Excel.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. |
Dopo l'installazione Kutools per Excel, fai come di seguito :(Scarica gratuitamente Kutools per Excel adesso!)
1. Clic Kutools Plus > Importa / Esporta > Esporta grafica, vedi screenshot:
2. Nel Esporta grafica finestra di dialogo, tutti i file grafici, immagini ed forme sono stati elencati nella casella di riepilogo a sinistra, specificare il tipo che si desidera esportare, quindi fare clic su pulsante per specificare una directory in cui salvare la grafica esportata, allo stesso tempo, puoi scegliere il formato delle immagini dal formato di esportazione di cui hai bisogno, come GIF, JPEG, TIF or PNG.
3. Quindi fare clic OK, tutti i grafici, le immagini e le forme sono stati esportati correttamente nella posizione specificata. Vedi screenshot:
; |
Si prega di fare clic Esporta grafica per saperne di più su questa funzione.
Esporta grafica
Esporta intervallo su file |
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!